(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. The data for the notebook 
starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do one of 
the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the 
word CacheID, otherwise Mathematica-compatible applications may try to 
use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[    182060,       4329]*)
(*NotebookOutlinePosition[    182928,       4357]*)
(*  CellTagsIndexPosition[    182884,       4353]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[BoxData[
    \(<< EDCRGTCcode.m\)], "Input"],

Cell[CellGroupData[{

Cell["\<\
  \[FilledSmallSquare]  \t General 1st Order Perturbation of the \
Schwarzschild solution\
\>", "Text",
  ShowGroupOpenCloseIcon->True,
  FontSize->16,
  FontWeight->"Bold"],

Cell[BoxData[
    \(\(xCoord = {t, r, \[Theta], \[CurlyPhi]};\)\)], "Input"],

Cell[BoxData[
    \(\(g = 
        DiagonalMatrix[{1 - 
              2  M/r, \(-1\)/\((1 - 2  M/r)\), \(-r^2\), \(-r^2\) 
              Sin[\[Theta]]^2}];\)\)], "Input"],

Cell[BoxData[
    \(\(simpRules = TrigRules;\)\)], "Input"],

Cell[TextData[{
  "\t",
  StyleBox["First evaluate the exact solution -- to use the appropriate ",
    FontSize->16],
  StyleBox["covD",
    FontFamily->"Courier",
    FontSize->16],
  StyleBox[" later.",
    FontSize->16]
}], "Text",
  FontColor->RGBColor[0, 0, 1]],

Cell[CellGroupData[{

Cell[BoxData[
    \(RGtensors[g, xCoord]\)], "Input"],

Cell[BoxData[
    InterpretationBox[
      RowBox[{"\<\"gdd = \"\>", "\[InvisibleSpace]", 
        TagBox[
          RowBox[{"(", "\[NoBreak]", GridBox[{
                {\(1 - \(2\ M\)\/r\), "0", "0", "0"},
                {"0", \(-\(1\/\(1 - \(2\ M\)\/r\)\)\), "0", "0"},
                {"0", "0", \(-r\^2\), "0"},
                {"0", "0", "0", \(\(-r\^2\)\ Sin[\[Theta]]\^2\)}
                }], "\[NoBreak]", ")"}],
          (MatrixForm[ #]&)]}],
      SequenceForm[ "gdd = ", 
        MatrixForm[ {{
          Plus[ 1, 
            Times[ -2, M, 
              Power[ r, -1]]], 0, 0, 0}, {0, 
          Times[ -1, 
            Power[ 
              Plus[ 1, 
                Times[ -2, M, 
                  Power[ r, -1]]], -1]], 0, 0}, {0, 0, 
          Times[ -1, 
            Power[ r, 2]], 0}, {0, 0, 0, 
          Times[ -1, 
            Power[ r, 2], 
            Power[ 
              Sin[ \[Theta]], 2]]}}]],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[
      RowBox[{"\<\"LineElement = \"\>", "\[InvisibleSpace]", 
        TagBox[\(\(r\ d[r]\^2\)\/\(2\ M - r\) - \(\((2\ M - r)\)\ \
d[t]\^2\)\/r - r\^2\ d[\[Theta]]\^2 - 
            r\^2\ d[\[CurlyPhi]]\^2\ Sin[\[Theta]]\^2\),
          (Short[ #, 32]&)]}],
      SequenceForm[ "LineElement = ", 
        Short[ 
          Plus[ 
            Times[ 
              Power[ 
                Plus[ 
                  Times[ 2, M], 
                  Times[ -1, r]], -1], r, 
              Power[ 
                d[ r], 2]], 
            Times[ -1, 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], 
              Power[ r, -1], 
              Power[ 
                d[ t], 2]], 
            Times[ -1, 
              Power[ r, 2], 
              Power[ 
                d[ \[Theta]], 2]], 
            Times[ -1, 
              Power[ r, 2], 
              Power[ 
                d[ \[CurlyPhi]], 2], 
              Power[ 
                Sin[ \[Theta]], 2]]], 32]],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[
      RowBox[{"\<\"gUU = \"\>", "\[InvisibleSpace]", 
        TagBox[
          RowBox[{"(", "\[NoBreak]", GridBox[{
                {\(-\(r\/\(2\ M - r\)\)\), "0", "0", "0"},
                {"0", \(-\(\(\(-2\)\ M + r\)\/r\)\), "0", "0"},
                {"0", "0", \(-\(1\/r\^2\)\), "0"},
                {"0", "0", "0", \(-\(Csc[\[Theta]]\^2\/r\^2\)\)}
                }], "\[NoBreak]", ")"}],
          (MatrixForm[ #]&)]}],
      SequenceForm[ "gUU = ", 
        MatrixForm[ {{
          Times[ -1, 
            Power[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], -1], r], 0, 0, 0}, {0, 
          Times[ -1, 
            Power[ r, -1], 
            Plus[ 
              Times[ -2, M], r]], 0, 0}, {0, 0, 
          Times[ -1, 
            Power[ r, -2]], 0}, {0, 0, 0, 
          Times[ -1, 
            Power[ r, -2], 
            Power[ 
              Csc[ \[Theta]], 2]]}}]],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("gUU computed in \
"\[InvisibleSpace]0.01666666666665151`\[InvisibleSpace]" sec"\),
      SequenceForm[ "gUU computed in ", 0.016666666666651508, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("Gamma computed in \
"\[InvisibleSpace]0.03333333333335986`\[InvisibleSpace]" sec"\),
      SequenceForm[ "Gamma computed in ", 0.03333333333335986, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("Riemann(dddd) computed in \
"\[InvisibleSpace]0.01666666666665151`\[InvisibleSpace]" sec"\),
      SequenceForm[ 
      "Riemann(dddd) computed in ", 0.016666666666651508, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("Riemann(Uddd) computed in \
"\[InvisibleSpace]0.03333333333330302`\[InvisibleSpace]" sec"\),
      SequenceForm[ 
      "Riemann(Uddd) computed in ", 0.033333333333303017, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("Ricci computed in "\[InvisibleSpace]0.`\
\[InvisibleSpace]" sec"\),
      SequenceForm[ "Ricci computed in ", 0.0, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("Weyl computed in "\[InvisibleSpace]0.`\
\[InvisibleSpace]" sec"\),
      SequenceForm[ "Weyl computed in ", 0.0, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    \("Ricci Flat"\)], "Output",
  FontSize->20,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 1]],

Cell[BoxData[
    \("All tasks completed in 0.1 seconds"\)], "Output"]
}, Open  ]],

Cell[TextData[{
  "\t",
  StyleBox["Under a coordinate perturbation, x[a]->x[a]+X1[a][x], the metric \
changes by  ",
    FontSize->16],
  Cell[BoxData[
      RowBox[{
        SubscriptBox[
          StyleBox["X1",
            FontFamily->"Courier",
            FontSize->16], 
          RowBox[{
            StyleBox["a",
              FontSize->16], ";", 
            StyleBox["b",
              FontSize->16]}]], 
        StyleBox["+",
          FontSize->16], 
        SubscriptBox[
          StyleBox["X1",
            FontFamily->"Courier",
            FontSize->16], 
          RowBox[{
            StyleBox["b",
              FontSize->16], ";", 
            StyleBox["a",
              FontSize->16]}]]}]]],
  StyleBox[", where the ",
    FontSize->16],
  StyleBox["covD",
    FontFamily->"Courier",
    FontSize->16],
  StyleBox[" is with respect to the unperturbed metric",
    FontSize->16]
}], "Text",
  FontColor->RGBColor[0, 0, 1]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(X1ab = 
        covD[{\(X1[1]\)[t, r, \[Theta], \[CurlyPhi]], \(X1[2]\)[t, 
              r, \[Theta], \[CurlyPhi]], \(X1[3]\)[t, 
              r, \[Theta], \[CurlyPhi]], \(X1[4]\)[t, 
              r, \[Theta], \[CurlyPhi]]}];\)\), "\n", 
    \(coordPerturb = X1ab + Transpose[X1ab]\)}], "Input"],

Cell[BoxData[
    RowBox[{"{", 
      RowBox[{
        RowBox[{"{", 
          RowBox[{
            FractionBox[
              RowBox[{"2", " ", 
                RowBox[{"(", 
                  
                  RowBox[{\(2\ M\^2\ \(X1[2]\)[t, r, \[Theta], \[CurlyPhi]]\),
                     "-", \(M\ r\ \(X1[2]\)[t, r, \[Theta], \[CurlyPhi]]\), 
                    "+", 
                    RowBox[{\(r\^3\), " ", 
                      RowBox[{
                        SuperscriptBox[\(X1[1]\), 
                          TagBox[\((1, 0, 0, 0)\),
                            Derivative],
                          MultilineFunction->None], "[", \(t, 
                        r, \[Theta], \[CurlyPhi]\), "]"}]}]}], 
                  ")"}]}], \(r\^3\)], ",", 
            RowBox[{
              FractionBox[
                RowBox[{\(M\ \(X1[1]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
                  RowBox[{"2", " ", "M", " ", "r", " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[1]\), 
                        TagBox[\((0, 1, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                  RowBox[{\(r\^2\), " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[1]\), 
                        TagBox[\((0, 1, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], \(\((2\ M - 
                      r)\)\ r\)], "+", 
              FractionBox[
                RowBox[{\(M\ \(X1[1]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
                  RowBox[{"2", " ", "M", " ", "r", " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[2]\), 
                        TagBox[\((1, 0, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                  RowBox[{\(r\^2\), " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[2]\), 
                        TagBox[\((1, 0, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], \(\((2\ M - 
                      r)\)\ r\)]}], ",", 
            RowBox[{
              RowBox[{
                SuperscriptBox[\(X1[1]\), 
                  TagBox[\((0, 0, 1, 0)\),
                    Derivative],
                  MultilineFunction->None], "[", \(t, 
                r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
              RowBox[{
                SuperscriptBox[\(X1[3]\), 
                  TagBox[\((1, 0, 0, 0)\),
                    Derivative],
                  MultilineFunction->None], "[", \(t, 
                r, \[Theta], \[CurlyPhi]\), "]"}]}], ",", 
            RowBox[{
              RowBox[{
                SuperscriptBox[\(X1[1]\), 
                  TagBox[\((0, 0, 0, 1)\),
                    Derivative],
                  MultilineFunction->None], "[", \(t, 
                r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
              RowBox[{
                SuperscriptBox[\(X1[4]\), 
                  TagBox[\((1, 0, 0, 0)\),
                    Derivative],
                  MultilineFunction->None], "[", \(t, 
                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
          RowBox[{
            RowBox[{
              FractionBox[
                RowBox[{\(M\ \(X1[1]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
                  RowBox[{"2", " ", "M", " ", "r", " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[1]\), 
                        TagBox[\((0, 1, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                  RowBox[{\(r\^2\), " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[1]\), 
                        TagBox[\((0, 1, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], \(\((2\ M - 
                      r)\)\ r\)], "+", 
              FractionBox[
                RowBox[{\(M\ \(X1[1]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
                  RowBox[{"2", " ", "M", " ", "r", " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[2]\), 
                        TagBox[\((1, 0, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                  RowBox[{\(r\^2\), " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[2]\), 
                        TagBox[\((1, 0, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], \(\((2\ M - 
                      r)\)\ r\)]}], ",", 
            FractionBox[
              RowBox[{"2", " ", 
                RowBox[{"(", 
                  
                  RowBox[{\(\(-M\)\ \(X1[2]\)[t, r, \[Theta], \[CurlyPhi]]\), 
                    "+", 
                    RowBox[{"2", " ", "M", " ", "r", " ", 
                      RowBox[{
                        SuperscriptBox[\(X1[2]\), 
                          TagBox[\((0, 1, 0, 0)\),
                            Derivative],
                          MultilineFunction->None], "[", \(t, 
                        r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                    RowBox[{\(r\^2\), " ", 
                      RowBox[{
                        SuperscriptBox[\(X1[2]\), 
                          TagBox[\((0, 1, 0, 0)\),
                            Derivative],
                          MultilineFunction->None], "[", \(t, 
                        r, \[Theta], \[CurlyPhi]\), "]"}]}]}], 
                  ")"}]}], \(\((2\ M - r)\)\ r\)], ",", 
            RowBox[{
              FractionBox[
                RowBox[{\(-\(X1[3]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
                  RowBox[{"r", " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[2]\), 
                        TagBox[\((0, 0, 1, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], "r"], "+", 
              FractionBox[
                RowBox[{\(-\(X1[3]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
                  RowBox[{"r", " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[3]\), 
                        TagBox[\((0, 1, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], "r"]}], ",", 
            RowBox[{
              FractionBox[
                RowBox[{\(-\(X1[4]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
                  RowBox[{"r", " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[2]\), 
                        TagBox[\((0, 0, 0, 1)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], "r"], "+", 
              FractionBox[
                RowBox[{\(-\(X1[4]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
                  RowBox[{"r", " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[4]\), 
                        TagBox[\((0, 1, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], "r"]}]}], "}"}], 
        ",", 
        RowBox[{"{", 
          RowBox[{
            RowBox[{
              RowBox[{
                SuperscriptBox[\(X1[1]\), 
                  TagBox[\((0, 0, 1, 0)\),
                    Derivative],
                  MultilineFunction->None], "[", \(t, 
                r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
              RowBox[{
                SuperscriptBox[\(X1[3]\), 
                  TagBox[\((1, 0, 0, 0)\),
                    Derivative],
                  MultilineFunction->None], "[", \(t, 
                r, \[Theta], \[CurlyPhi]\), "]"}]}], ",", 
            RowBox[{
              FractionBox[
                RowBox[{\(-\(X1[3]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
                  RowBox[{"r", " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[2]\), 
                        TagBox[\((0, 0, 1, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], "r"], "+", 
              FractionBox[
                RowBox[{\(-\(X1[3]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
                  RowBox[{"r", " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[3]\), 
                        TagBox[\((0, 1, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], "r"]}], ",", 
            
            RowBox[{\(\(-4\)\ M\ \(X1[2]\)[t, r, \[Theta], \[CurlyPhi]]\), 
              "+", \(2\ r\ \(X1[2]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
              RowBox[{"2", " ", 
                RowBox[{
                  SuperscriptBox[\(X1[3]\), 
                    TagBox[\((0, 0, 1, 0)\),
                      Derivative],
                    MultilineFunction->None], "[", \(t, 
                  r, \[Theta], \[CurlyPhi]\), "]"}]}]}], ",", 
            
            RowBox[{\(\(-2\)\ Cot[\[Theta]]\ \(X1[4]\)[t, 
                  r, \[Theta], \[CurlyPhi]]\), "+", 
              RowBox[{
                SuperscriptBox[\(X1[3]\), 
                  TagBox[\((0, 0, 0, 1)\),
                    Derivative],
                  MultilineFunction->None], "[", \(t, 
                r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
              RowBox[{
                SuperscriptBox[\(X1[4]\), 
                  TagBox[\((0, 0, 1, 0)\),
                    Derivative],
                  MultilineFunction->None], "[", \(t, 
                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
          RowBox[{
            RowBox[{
              RowBox[{
                SuperscriptBox[\(X1[1]\), 
                  TagBox[\((0, 0, 0, 1)\),
                    Derivative],
                  MultilineFunction->None], "[", \(t, 
                r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
              RowBox[{
                SuperscriptBox[\(X1[4]\), 
                  TagBox[\((1, 0, 0, 0)\),
                    Derivative],
                  MultilineFunction->None], "[", \(t, 
                r, \[Theta], \[CurlyPhi]\), "]"}]}], ",", 
            RowBox[{
              FractionBox[
                RowBox[{\(-\(X1[4]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
                  RowBox[{"r", " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[2]\), 
                        TagBox[\((0, 0, 0, 1)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], "r"], "+", 
              FractionBox[
                RowBox[{\(-\(X1[4]\)[t, r, \[Theta], \[CurlyPhi]]\), "+", 
                  RowBox[{"r", " ", 
                    RowBox[{
                      SuperscriptBox[\(X1[4]\), 
                        TagBox[\((0, 1, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(t, 
                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], "r"]}], ",", 
            
            RowBox[{\(\(-2\)\ Cot[\[Theta]]\ \(X1[4]\)[t, 
                  r, \[Theta], \[CurlyPhi]]\), "+", 
              RowBox[{
                SuperscriptBox[\(X1[3]\), 
                  TagBox[\((0, 0, 0, 1)\),
                    Derivative],
                  MultilineFunction->None], "[", \(t, 
                r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
              RowBox[{
                SuperscriptBox[\(X1[4]\), 
                  TagBox[\((0, 0, 1, 0)\),
                    Derivative],
                  MultilineFunction->None], "[", \(t, 
                r, \[Theta], \[CurlyPhi]\), "]"}]}], ",", 
            
            RowBox[{\(\(-4\)\ M\ Sin[\[Theta]]\^2\ \(X1[2]\)[t, 
                  r, \[Theta], \[CurlyPhi]]\), 
              "+", \(2\ r\ Sin[\[Theta]]\^2\ \(X1[2]\)[t, 
                  r, \[Theta], \[CurlyPhi]]\), 
              "+", \(2\ Cos[\[Theta]]\ Sin[\[Theta]]\ \(X1[3]\)[t, 
                  r, \[Theta], \[CurlyPhi]]\), "+", 
              RowBox[{"2", " ", 
                RowBox[{
                  SuperscriptBox[\(X1[4]\), 
                    TagBox[\((0, 0, 0, 1)\),
                      Derivative],
                    MultilineFunction->None], "[", \(t, 
                  r, \[Theta], \[CurlyPhi]\), "]"}]}]}]}], "}"}]}], 
      "}"}]], "Output"]
}, Open  ]],

Cell[TextData[{
  "\t",
  StyleBox["Construct a symmetric matrix of functions of the coordinates:.",
    FontSize->16]
}], "Text",
  FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
    \(\(hh[a_, b_]\)[t, 
        r, \[Theta], \[CurlyPhi]] := \(hh[b, a]\)[t, 
          r, \[Theta], \[CurlyPhi]] /; a > b\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(symMat = 
      Table[\(hh[a, b]\)[t, r, \[Theta], \[CurlyPhi]], {a, 4}, {b, 
          4}]\)], "Input"],

Cell[BoxData[
    \({{\(hh[1, 1]\)[t, r, \[Theta], \[CurlyPhi]], \(hh[1, 2]\)[t, 
          r, \[Theta], \[CurlyPhi]], \(hh[1, 3]\)[t, 
          r, \[Theta], \[CurlyPhi]], \(hh[1, 4]\)[t, 
          r, \[Theta], \[CurlyPhi]]}, {\(hh[1, 2]\)[t, 
          r, \[Theta], \[CurlyPhi]], \(hh[2, 2]\)[t, 
          r, \[Theta], \[CurlyPhi]], \(hh[2, 3]\)[t, 
          r, \[Theta], \[CurlyPhi]], \(hh[2, 4]\)[t, 
          r, \[Theta], \[CurlyPhi]]}, {\(hh[1, 3]\)[t, 
          r, \[Theta], \[CurlyPhi]], \(hh[2, 3]\)[t, 
          r, \[Theta], \[CurlyPhi]], \(hh[3, 3]\)[t, 
          r, \[Theta], \[CurlyPhi]], \(hh[3, 4]\)[t, 
          r, \[Theta], \[CurlyPhi]]}, {\(hh[1, 4]\)[t, 
          r, \[Theta], \[CurlyPhi]], \(hh[2, 4]\)[t, 
          r, \[Theta], \[CurlyPhi]], \(hh[3, 4]\)[t, 
          r, \[Theta], \[CurlyPhi]], \(hh[4, 4]\)[t, 
          r, \[Theta], \[CurlyPhi]]}}\)], "Output"]
}, Open  ]],

Cell[TextData[{
  "\t",
  StyleBox["General perturbation -- 1st order in the parameter ",
    FontSize->16],
  StyleBox["lam",
    FontSize->16,
    FontColor->RGBColor[1, 0, 0]],
  StyleBox[".",
    FontSize->16]
}], "Text",
  FontColor->RGBColor[0, 0, 1]],

Cell[CellGroupData[{

Cell[BoxData[
    RowBox[{"gh1", "=", 
      RowBox[{"Series", "[", 
        RowBox[{
          RowBox[{"g", "+", 
            RowBox[{
              StyleBox["lam",
                FontColor->RGBColor[1, 0, 0]], " ", "symMat"}]}], 
          ",", \({lam, 0, 1}\)}], "]"}]}]], "Input"],

Cell[BoxData[
    RowBox[{"{", 
      RowBox[{
        RowBox[{"{", 
          RowBox[{
            InterpretationBox[
              
              RowBox[{\((1 - \(2\ M\)\/r)\), 
                "+", \(\(hh[1, 1]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 0, 2, 1]]}],
              SeriesData[ lam, 0, {
                Plus[ 1, 
                  Times[ -2, M, 
                    Power[ r, -1]]], 
                hh[ 1, 1][ t, r, \[Theta], \[CurlyPhi]]}, 0, 2, 1]], ",", 
            InterpretationBox[
              
              RowBox[{\(\(hh[1, 2]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+",
                 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 1, 2, 1]]}],
              SeriesData[ lam, 0, {
                hh[ 1, 2][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], ",", 
            InterpretationBox[
              
              RowBox[{\(\(hh[1, 3]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+",
                 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 1, 2, 1]]}],
              SeriesData[ lam, 0, {
                hh[ 1, 3][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], ",", 
            InterpretationBox[
              
              RowBox[{\(\(hh[1, 4]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+",
                 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 1, 2, 1]]}],
              SeriesData[ lam, 0, {
                hh[ 1, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]]}], "}"}], 
        ",", 
        RowBox[{"{", 
          RowBox[{
            InterpretationBox[
              
              RowBox[{\(\(hh[1, 2]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+",
                 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 1, 2, 1]]}],
              SeriesData[ lam, 0, {
                hh[ 1, 2][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], ",", 
            InterpretationBox[
              
              RowBox[{\(-\(1\/\(1 - \(2\ M\)\/r\)\)\), 
                "+", \(\(hh[2, 2]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 0, 2, 1]]}],
              SeriesData[ lam, 0, {
                Times[ -1, 
                  Power[ 
                    Plus[ 1, 
                      Times[ -2, M, 
                        Power[ r, -1]]], -1]], 
                hh[ 2, 2][ t, r, \[Theta], \[CurlyPhi]]}, 0, 2, 1]], ",", 
            InterpretationBox[
              
              RowBox[{\(\(hh[2, 3]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+",
                 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 1, 2, 1]]}],
              SeriesData[ lam, 0, {
                hh[ 2, 3][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], ",", 
            InterpretationBox[
              
              RowBox[{\(\(hh[2, 4]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+",
                 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 1, 2, 1]]}],
              SeriesData[ lam, 0, {
                hh[ 2, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]]}], "}"}], 
        ",", 
        RowBox[{"{", 
          RowBox[{
            InterpretationBox[
              
              RowBox[{\(\(hh[1, 3]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+",
                 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 1, 2, 1]]}],
              SeriesData[ lam, 0, {
                hh[ 1, 3][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], ",", 
            InterpretationBox[
              
              RowBox[{\(\(hh[2, 3]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+",
                 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 1, 2, 1]]}],
              SeriesData[ lam, 0, {
                hh[ 2, 3][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], ",", 
            InterpretationBox[
              
              RowBox[{\(-r\^2\), 
                "+", \(\(hh[3, 3]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 0, 2, 1]]}],
              SeriesData[ lam, 0, {
                Times[ -1, 
                  Power[ r, 2]], 
                hh[ 3, 3][ t, r, \[Theta], \[CurlyPhi]]}, 0, 2, 1]], ",", 
            InterpretationBox[
              
              RowBox[{\(\(hh[3, 4]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+",
                 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 1, 2, 1]]}],
              SeriesData[ lam, 0, {
                hh[ 3, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]]}], "}"}], 
        ",", 
        RowBox[{"{", 
          RowBox[{
            InterpretationBox[
              
              RowBox[{\(\(hh[1, 4]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+",
                 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 1, 2, 1]]}],
              SeriesData[ lam, 0, {
                hh[ 1, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], ",", 
            InterpretationBox[
              
              RowBox[{\(\(hh[2, 4]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+",
                 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 1, 2, 1]]}],
              SeriesData[ lam, 0, {
                hh[ 2, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], ",", 
            InterpretationBox[
              
              RowBox[{\(\(hh[3, 4]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+",
                 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 1, 2, 1]]}],
              SeriesData[ lam, 0, {
                hh[ 3, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], ",", 
            InterpretationBox[
              
              RowBox[{\(-\(r\^2\ Sin[\[Theta]]\^2\)\), 
                "+", \(\(hh[4, 4]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 0, 2, 1]]}],
              SeriesData[ lam, 0, {
                Times[ -1, 
                  Power[ r, 2], 
                  Power[ 
                    Sin[ \[Theta]], 2]], 
                hh[ 4, 4][ t, r, \[Theta], \[CurlyPhi]]}, 0, 2, 1]]}], 
          "}"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[BoxData[
    \(\n\)], "Input"],

Cell[TextData[{
  "\t",
  StyleBox["Compute the general first order perturbation of the Riemann and \
Ricci tensors:",
    FontSize->16]
}], "Text",
  FontColor->RGBColor[0, 0, 1]],

Cell[CellGroupData[{

Cell[BoxData[
    \(RGtensors[gh1, xCoord, {0, 0}]\)], "Input"],

Cell[BoxData[
    InterpretationBox[
      RowBox[{"\<\"gdd = \"\>", "\[InvisibleSpace]", 
        TagBox[
          RowBox[{"(", "\[NoBreak]", GridBox[{
                {
                  InterpretationBox[
                    
                    RowBox[{\((1 - \(2\ M\)\/r)\), 
                      "+", \(\(hh[1, 1]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\),
                       "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Plus[ 1, 
                        Times[ -2, M, 
                          Power[ r, -1]]], 
                      hh[ 1, 1][ t, r, \[Theta], \[CurlyPhi]]}, 0, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[1, 2]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 1, 2][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[1, 3]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 1, 3][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[1, 4]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 1, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]]},
                {
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[1, 2]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 1, 2][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(-\(1\/\(1 - \(2\ M\)\/r\)\)\), 
                      "+", \(\(hh[2, 2]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\),
                       "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ -1, 
                        Power[ 
                          Plus[ 1, 
                            Times[ -2, M, 
                              Power[ r, -1]]], -1]], 
                      hh[ 2, 2][ t, r, \[Theta], \[CurlyPhi]]}, 0, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[2, 3]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 2, 3][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[2, 4]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 2, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]]},
                {
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[1, 3]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 1, 3][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[2, 3]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 2, 3][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(-r\^2\), 
                      "+", \(\(hh[3, 3]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\),
                       "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ -1, 
                        Power[ r, 2]], 
                      hh[ 3, 3][ t, r, \[Theta], \[CurlyPhi]]}, 0, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[3, 4]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 3, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]]},
                {
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[1, 4]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 1, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[2, 4]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 2, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[3, 4]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 3, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(-\(r\^2\ Sin[\[Theta]]\^2\)\), 
                      "+", \(\(hh[4, 4]\)[t, r, \[Theta], \[CurlyPhi]]\ lam\),
                       "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ -1, 
                        Power[ r, 2], 
                        Power[ 
                          Sin[ \[Theta]], 2]], 
                      hh[ 4, 4][ t, r, \[Theta], \[CurlyPhi]]}, 0, 2, 1]]}
                }], "\[NoBreak]", ")"}],
          (MatrixForm[ #]&)]}],
      SequenceForm[ "gdd = ", 
        MatrixForm[ {{
          SeriesData[ lam, 0, {
            Plus[ 1, 
              Times[ -2, M, 
                Power[ r, -1]]], 
            hh[ 1, 1][ t, r, \[Theta], \[CurlyPhi]]}, 0, 2, 1], 
          SeriesData[ lam, 0, {
            hh[ 1, 2][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            hh[ 1, 3][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            hh[ 1, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]}, {
          SeriesData[ lam, 0, {
            hh[ 1, 2][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ -1, 
              Power[ 
                Plus[ 1, 
                  Times[ -2, M, 
                    Power[ r, -1]]], -1]], 
            hh[ 2, 2][ t, r, \[Theta], \[CurlyPhi]]}, 0, 2, 1], 
          SeriesData[ lam, 0, {
            hh[ 2, 3][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            hh[ 2, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]}, {
          SeriesData[ lam, 0, {
            hh[ 1, 3][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            hh[ 2, 3][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ -1, 
              Power[ r, 2]], 
            hh[ 3, 3][ t, r, \[Theta], \[CurlyPhi]]}, 0, 2, 1], 
          SeriesData[ lam, 0, {
            hh[ 3, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]}, {
          SeriesData[ lam, 0, {
            hh[ 1, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            hh[ 2, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            hh[ 3, 4][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ -1, 
              Power[ r, 2], 
              Power[ 
                Sin[ \[Theta]], 2]], 
            hh[ 4, 4][ t, r, \[Theta], \[CurlyPhi]]}, 0, 2, 1]}}]],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[
      RowBox[{"\<\"LineElement = \"\>", "\[InvisibleSpace]", 
        TagBox[
          InterpretationBox[
            
            RowBox[{\((\(r\ d[r]\^2\)\/\(2\ M - r\) - \(\((2\ M - r)\)\ \
d[t]\^2\)\/r - r\^2\ d[\[Theta]]\^2 - 
                  r\^2\ d[\[CurlyPhi]]\^2\ Sin[\[Theta]]\^2)\), 
              "+", \(\((d[t]\^2\ \(hh[1, 1]\)[t, r, \[Theta], \[CurlyPhi]] + 
                    d[t]\ \((2\ d[\[Theta]]\ \(hh[1, 3]\)[t, 
                              r, \[Theta], \[CurlyPhi]] + 
                          2\ d[\[CurlyPhi]]\ \(hh[1, 4]\)[t, 
                              r, \[Theta], \[CurlyPhi]])\) + 
                    d[r]\^2\ \(hh[2, 2]\)[t, r, \[Theta], \[CurlyPhi]] + 
                    d[r]\ \((2\ d[t]\ \(hh[1, 2]\)[t, 
                              r, \[Theta], \[CurlyPhi]] + 
                          2\ d[\[Theta]]\ \(hh[2, 3]\)[t, 
                              r, \[Theta], \[CurlyPhi]] + 
                          2\ d[\[CurlyPhi]]\ \(hh[2, 4]\)[t, 
                              r, \[Theta], \[CurlyPhi]])\) + 
                    d[\[Theta]]\^2\ \(hh[3, 3]\)[t, 
                        r, \[Theta], \[CurlyPhi]] + 
                    2\ d[\[Theta]]\ d[\[CurlyPhi]]\ \(hh[3, 4]\)[t, 
                        r, \[Theta], \[CurlyPhi]] + 
                    d[\[CurlyPhi]]\^2\ \(hh[4, 4]\)[t, 
                        r, \[Theta], \[CurlyPhi]])\)\ lam\), "+", 
              InterpretationBox[\(O[lam]\^2\),
                SeriesData[ lam, 0, {}, 0, 2, 1]]}],
            SeriesData[ lam, 0, {
              Plus[ 
                Times[ 
                  Power[ 
                    Plus[ 
                      Times[ 2, M], 
                      Times[ -1, r]], -1], r, 
                  Power[ 
                    d[ r], 2]], 
                Times[ -1, 
                  Plus[ 
                    Times[ 2, M], 
                    Times[ -1, r]], 
                  Power[ r, -1], 
                  Power[ 
                    d[ t], 2]], 
                Times[ -1, 
                  Power[ r, 2], 
                  Power[ 
                    d[ \[Theta]], 2]], 
                Times[ -1, 
                  Power[ r, 2], 
                  Power[ 
                    d[ \[CurlyPhi]], 2], 
                  Power[ 
                    Sin[ \[Theta]], 2]]], 
              Plus[ 
                Times[ 
                  Power[ 
                    d[ t], 2], 
                  hh[ 1, 1][ t, r, \[Theta], \[CurlyPhi]]], 
                Times[ 
                  d[ t], 
                  Plus[ 
                    Times[ 2, 
                      d[ \[Theta]], 
                      hh[ 1, 3][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ 2, 
                      d[ \[CurlyPhi]], 
                      hh[ 1, 4][ t, r, \[Theta], \[CurlyPhi]]]]], 
                Times[ 
                  Power[ 
                    d[ r], 2], 
                  hh[ 2, 2][ t, r, \[Theta], \[CurlyPhi]]], 
                Times[ 
                  d[ r], 
                  Plus[ 
                    Times[ 2, 
                      d[ t], 
                      hh[ 1, 2][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ 2, 
                      d[ \[Theta]], 
                      hh[ 2, 3][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ 2, 
                      d[ \[CurlyPhi]], 
                      hh[ 2, 4][ t, r, \[Theta], \[CurlyPhi]]]]], 
                Times[ 
                  Power[ 
                    d[ \[Theta]], 2], 
                  hh[ 3, 3][ t, r, \[Theta], \[CurlyPhi]]], 
                Times[ 2, 
                  d[ \[Theta]], 
                  d[ \[CurlyPhi]], 
                  hh[ 3, 4][ t, r, \[Theta], \[CurlyPhi]]], 
                Times[ 
                  Power[ 
                    d[ \[CurlyPhi]], 2], 
                  hh[ 4, 4][ t, r, \[Theta], \[CurlyPhi]]]]}, 0, 2, 1]],
          (Short[ #, 32]&)]}],
      SequenceForm[ "LineElement = ", 
        Short[ 
          SeriesData[ lam, 0, {
            Plus[ 
              Times[ 
                Power[ 
                  Plus[ 
                    Times[ 2, M], 
                    Times[ -1, r]], -1], r, 
                Power[ 
                  d[ r], 2]], 
              Times[ -1, 
                Plus[ 
                  Times[ 2, M], 
                  Times[ -1, r]], 
                Power[ r, -1], 
                Power[ 
                  d[ t], 2]], 
              Times[ -1, 
                Power[ r, 2], 
                Power[ 
                  d[ \[Theta]], 2]], 
              Times[ -1, 
                Power[ r, 2], 
                Power[ 
                  d[ \[CurlyPhi]], 2], 
                Power[ 
                  Sin[ \[Theta]], 2]]], 
            Plus[ 
              Times[ 
                Power[ 
                  d[ t], 2], 
                hh[ 1, 1][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 
                d[ t], 
                Plus[ 
                  Times[ 2, 
                    d[ \[Theta]], 
                    hh[ 1, 3][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ 2, 
                    d[ \[CurlyPhi]], 
                    hh[ 1, 4][ t, r, \[Theta], \[CurlyPhi]]]]], 
              Times[ 
                Power[ 
                  d[ r], 2], 
                hh[ 2, 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 
                d[ r], 
                Plus[ 
                  Times[ 2, 
                    d[ t], 
                    hh[ 1, 2][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ 2, 
                    d[ \[Theta]], 
                    hh[ 2, 3][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ 2, 
                    d[ \[CurlyPhi]], 
                    hh[ 2, 4][ t, r, \[Theta], \[CurlyPhi]]]]], 
              Times[ 
                Power[ 
                  d[ \[Theta]], 2], 
                hh[ 3, 3][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 2, 
                d[ \[Theta]], 
                d[ \[CurlyPhi]], 
                hh[ 3, 4][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 
                Power[ 
                  d[ \[CurlyPhi]], 2], 
                hh[ 4, 4][ t, r, \[Theta], \[CurlyPhi]]]]}, 0, 2, 1], 32]],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[
      RowBox[{"\<\"gUU = \"\>", "\[InvisibleSpace]", 
        TagBox[
          RowBox[{"(", "\[NoBreak]", GridBox[{
                {
                  InterpretationBox[
                    
                    RowBox[{\(-\(r\/\(2\ M - r\)\)\), 
                      "-", \(\(r\^2\ \(hh[1, 1]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\ lam\)\/\((2\ M - \
r)\)\^2\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ -1, 
                        Power[ 
                          Plus[ 
                            Times[ 2, M], 
                            Times[ -1, r]], -1], r], 
                      Times[ -1, 
                        Power[ 
                          Plus[ 
                            Times[ 2, M], 
                            Times[ -1, r]], -2], 
                        Power[ r, 2], 
                        hh[ 1, 1][ t, r, \[Theta], \[CurlyPhi]]]}, 0, 2, 1]], 
                  
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[1, 2]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 1, 2][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(-\(\(\(hh[1, 3]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\ lam\)\/\(\((2\ M - 
                                  r)\)\ r\)\)\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ -1, 
                        Power[ 
                          Plus[ 
                            Times[ 2, M], 
                            Times[ -1, r]], -1], 
                        Power[ r, -1], 
                        hh[ 1, 3][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]], 
                  
                  InterpretationBox[
                    
                    RowBox[{\(-\(\(Csc[\[Theta]]\^2\ \(hh[1, 4]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\ lam\)\/\(\((2\ M - 
                                  r)\)\ r\)\)\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ -1, 
                        Power[ 
                          Plus[ 
                            Times[ 2, M], 
                            Times[ -1, r]], -1], 
                        Power[ r, -1], 
                        Power[ 
                          Csc[ \[Theta]], 2], 
                        hh[ 1, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 
                      1]]},
                {
                  InterpretationBox[
                    
                    RowBox[{\(\(hh[1, 2]\)[t, 
                          r, \[Theta], \[CurlyPhi]]\ lam\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      hh[ 1, 2][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1]], 
                  InterpretationBox[
                    
                    RowBox[{\(\(2\ M - r\)\/r\), 
                      "-", \(\(\((2\ M - r)\)\^2\ \(hh[2, 2]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\ lam\)\/r\^2\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], 
                        Power[ r, -1]], 
                      Times[ -1, 
                        Power[ 
                          Plus[ 
                            Times[ 2, M], 
                            Times[ -1, r]], 2], 
                        Power[ r, -2], 
                        hh[ 2, 2][ t, r, \[Theta], \[CurlyPhi]]]}, 0, 2, 1]], 
                  
                  InterpretationBox[
                    
                    RowBox[{\(\(\((2\ M - r)\)\ \(hh[2, 3]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\ lam\)\/r\^3\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], 
                        Power[ r, -3], 
                        hh[ 2, 3][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]], 
                  
                  InterpretationBox[
                    
                    RowBox[{\(\(\((2\ M - r)\)\ Csc[\[Theta]]\^2\ \(hh[2, 
                                4]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\ lam\)\/r\^3\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], 
                        Power[ r, -3], 
                        Power[ 
                          Csc[ \[Theta]], 2], 
                        hh[ 2, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 
                      1]]},
                {
                  InterpretationBox[
                    
                    RowBox[{\(-\(\(\(hh[1, 3]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\ lam\)\/\(\((2\ M - 
                                  r)\)\ r\)\)\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ -1, 
                        Power[ 
                          Plus[ 
                            Times[ 2, M], 
                            Times[ -1, r]], -1], 
                        Power[ r, -1], 
                        hh[ 1, 3][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]], 
                  
                  InterpretationBox[
                    
                    RowBox[{\(\(\((2\ M - r)\)\ \(hh[2, 3]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\ lam\)\/r\^3\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], 
                        Power[ r, -3], 
                        hh[ 2, 3][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]], 
                  
                  InterpretationBox[
                    
                    RowBox[{\(-\(1\/r\^2\)\), 
                      "-", \(\(\(hh[3, 3]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\ lam\)\/r\^4\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ -1, 
                        Power[ r, -2]], 
                      Times[ -1, 
                        Power[ r, -4], 
                        hh[ 3, 3][ t, r, \[Theta], \[CurlyPhi]]]}, 0, 2, 1]], 
                  
                  InterpretationBox[
                    
                    RowBox[{\(-\(\(Csc[\[Theta]]\^2\ \(hh[3, 4]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\ lam\)\/r\^4\)\), 
                      "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ -1, 
                        Power[ r, -4], 
                        Power[ 
                          Csc[ \[Theta]], 2], 
                        hh[ 3, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 
                      1]]},
                {
                  InterpretationBox[
                    RowBox[{\(-\(\(Csc[\[Theta]]\^2\ \(hh[1, 4]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\ lam\)\/\(\((2\ M - 
                                  r)\)\ r\)\)\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ -1, 
                        Power[ 
                          Plus[ 
                            Times[ 2, M], 
                            Times[ -1, r]], -1], 
                        Power[ r, -1], 
                        Power[ 
                          Csc[ \[Theta]], 2], 
                        hh[ 1, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]], 
                  
                  InterpretationBox[
                    
                    RowBox[{\(\(\((2\ M - r)\)\ Csc[\[Theta]]\^2\ \(hh[2, 
                                4]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\ lam\)\/r\^3\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], 
                        Power[ r, -3], 
                        Power[ 
                          Csc[ \[Theta]], 2], 
                        hh[ 2, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]], 
                  
                  InterpretationBox[
                    
                    RowBox[{\(-\(\(Csc[\[Theta]]\^2\ \(hh[3, 4]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\ lam\)\/r\^4\)\), 
                      "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ -1, 
                        Power[ r, -4], 
                        Power[ 
                          Csc[ \[Theta]], 2], 
                        hh[ 3, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]], 
                  
                  InterpretationBox[
                    
                    RowBox[{\(-\(Csc[\[Theta]]\^2\/r\^2\)\), 
                      "-", \(\(Csc[\[Theta]]\^4\ \(hh[4, 4]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\ lam\)\/r\^4\), "+", 
                      InterpretationBox[\(O[lam]\^2\),
                        SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                    SeriesData[ lam, 0, {
                      Times[ -1, 
                        Power[ r, -2], 
                        Power[ 
                          Csc[ \[Theta]], 2]], 
                      Times[ -1, 
                        Power[ r, -4], 
                        Power[ 
                          Csc[ \[Theta]], 4], 
                        hh[ 4, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 0, 2, 1]]}
                }], "\[NoBreak]", ")"}],
          (MatrixForm[ #]&)]}],
      SequenceForm[ "gUU = ", 
        MatrixForm[ {{
          SeriesData[ lam, 0, {
            Times[ -1, 
              Power[ 
                Plus[ 
                  Times[ 2, M], 
                  Times[ -1, r]], -1], r], 
            Times[ -1, 
              Power[ 
                Plus[ 
                  Times[ 2, M], 
                  Times[ -1, r]], -2], 
              Power[ r, 2], 
              hh[ 1, 1][ t, r, \[Theta], \[CurlyPhi]]]}, 0, 2, 1], 
          SeriesData[ lam, 0, {
            hh[ 1, 2][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ -1, 
              Power[ 
                Plus[ 
                  Times[ 2, M], 
                  Times[ -1, r]], -1], 
              Power[ r, -1], 
              hh[ 1, 3][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ -1, 
              Power[ 
                Plus[ 
                  Times[ 2, M], 
                  Times[ -1, r]], -1], 
              Power[ r, -1], 
              Power[ 
                Csc[ \[Theta]], 2], 
              hh[ 1, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]}, {
          SeriesData[ lam, 0, {
            hh[ 1, 2][ t, r, \[Theta], \[CurlyPhi]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], 
              Power[ r, -1]], 
            Times[ -1, 
              Power[ 
                Plus[ 
                  Times[ 2, M], 
                  Times[ -1, r]], 2], 
              Power[ r, -2], 
              hh[ 2, 2][ t, r, \[Theta], \[CurlyPhi]]]}, 0, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], 
              Power[ r, -3], 
              hh[ 2, 3][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], 
              Power[ r, -3], 
              Power[ 
                Csc[ \[Theta]], 2], 
              hh[ 2, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]}, {
          SeriesData[ lam, 0, {
            Times[ -1, 
              Power[ 
                Plus[ 
                  Times[ 2, M], 
                  Times[ -1, r]], -1], 
              Power[ r, -1], 
              hh[ 1, 3][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], 
              Power[ r, -3], 
              hh[ 2, 3][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ -1, 
              Power[ r, -2]], 
            Times[ -1, 
              Power[ r, -4], 
              hh[ 3, 3][ t, r, \[Theta], \[CurlyPhi]]]}, 0, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ -1, 
              Power[ r, -4], 
              Power[ 
                Csc[ \[Theta]], 2], 
              hh[ 3, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]}, {
          SeriesData[ lam, 0, {
            Times[ -1, 
              Power[ 
                Plus[ 
                  Times[ 2, M], 
                  Times[ -1, r]], -1], 
              Power[ r, -1], 
              Power[ 
                Csc[ \[Theta]], 2], 
              hh[ 1, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], 
              Power[ r, -3], 
              Power[ 
                Csc[ \[Theta]], 2], 
              hh[ 2, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ -1, 
              Power[ r, -4], 
              Power[ 
                Csc[ \[Theta]], 2], 
              hh[ 3, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1], 
          SeriesData[ lam, 0, {
            Times[ -1, 
              Power[ r, -2], 
              Power[ 
                Csc[ \[Theta]], 2]], 
            Times[ -1, 
              Power[ r, -4], 
              Power[ 
                Csc[ \[Theta]], 4], 
              hh[ 4, 4][ t, r, \[Theta], \[CurlyPhi]]]}, 0, 2, 1]}}]],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("gUU computed in \
"\[InvisibleSpace]0.30000000000001137`\[InvisibleSpace]" sec"\),
      SequenceForm[ "gUU computed in ", 0.30000000000001137, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("Gamma computed in \
"\[InvisibleSpace]1.283333333333303`\[InvisibleSpace]" sec"\),
      SequenceForm[ "Gamma computed in ", 1.283333333333303, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("Riemann(dddd) computed in \
"\[InvisibleSpace]6.7333333333333485`\[InvisibleSpace]" sec"\),
      SequenceForm[ "Riemann(dddd) computed in ", 6.7333333333333485, " sec"],
      
      Editable->False]], "Print"],

Cell[BoxData[
    \("RUddd not computed"\)], "Output",
  FontSize->16,
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 1]],

Cell[BoxData[
    InterpretationBox[\("Ricci computed in \
"\[InvisibleSpace]7.833333333333314`\[InvisibleSpace]" sec"\),
      SequenceForm[ "Ricci computed in ", 7.8333333333333144, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    \("Weyl tensor not computed"\)], "Output",
  FontSize->16,
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 1]],

Cell[BoxData[
    InterpretationBox[\("Einstein computed in \
"\[InvisibleSpace]5.900000000000034`\[InvisibleSpace]" sec"\),
      SequenceForm[ "Einstein computed in ", 5.9000000000000341, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    \("All tasks completed in 53.4333 seconds"\)], "Output"]
}, Open  ]],

Cell[TextData[{
  "\t",
  StyleBox["Use ",
    FontSize->16],
  StyleBox["FuncRepRules",
    FontFamily->"Courier",
    FontSize->16],
  StyleBox[" to generate transformation rules to replace symMat(",
    FontSize->16],
  StyleBox["hh[a,b]",
    FontFamily->"Courier",
    FontSize->16],
  StyleBox[") by coordPerturb(",
    FontSize->16],
  Cell[BoxData[
      RowBox[{
        SubscriptBox[
          StyleBox["X1",
            FontFamily->"Courier",
            FontSize->16], 
          RowBox[{
            StyleBox["a",
              FontSize->16], ";", 
            StyleBox["b",
              FontSize->16]}]], 
        StyleBox["+",
          FontSize->16], 
        SubscriptBox[
          StyleBox["X1",
            FontFamily->"Courier",
            FontSize->16], 
          RowBox[{
            StyleBox["b",
              FontSize->16], ";", 
            StyleBox["a",
              FontSize->16]}]]}]]],
  StyleBox["):",
    FontSize->16]
}], "Text",
  FontColor->RGBColor[0, 0, 1]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(CoordSolRules = 
          Join @@ \((Union[
                  Flatten[MapThread[ZZZ, {symMat, coordPerturb}, 2]]] /. 
                ZZZ -> FuncRepRules)\);\) // Timing\)], "Input"],

Cell[BoxData[
    \({0.6333333333333258`\ Second, Null}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(FacSimp[FacSimp[Rdd /. CoordSolRules]] // Timing\)], "Input"],

Cell[BoxData[
    RowBox[{"{", 
      RowBox[{\(28.05000000000001`\ Second\), ",", 
        RowBox[{"{", 
          RowBox[{
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]]}], "}"}], ",", 
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]]}], "}"}], ",", 
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]]}], "}"}], ",", 
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
                InterpretationBox[\(O[lam]\^2\),
                  SeriesData[ lam, 0, {}, 2, 2, 1]]}], "}"}]}], "}"}]}], 
      "}"}]], "Output"]
}, Open  ]],

Cell[TextData[{
  "\t",
  StyleBox["verifying ",
    FontSize->16],
  StyleBox["hh[a,b]",
    FontFamily->"Courier",
    FontSize->16],
  StyleBox["=",
    FontSize->16],
  Cell[BoxData[
      RowBox[{
        SubscriptBox[
          StyleBox["X1",
            FontFamily->"Courier",
            FontSize->16], 
          RowBox[{
            StyleBox["a",
              FontSize->16], ";", 
            StyleBox["b",
              FontSize->16]}]], 
        StyleBox["+",
          FontSize->16], 
        SubscriptBox[
          StyleBox["X1",
            FontFamily->"Courier",
            FontSize->16], 
          RowBox[{
            StyleBox["b",
              FontSize->16], ";", 
            StyleBox["a",
              FontSize->16]}]]}]]],
  StyleBox[" is a solution of Rdd=0 to order 1.",
    FontSize->16]
}], "Text",
  FontColor->RGBColor[0, 0, 1]],

Cell[TextData[{
  "\t",
  StyleBox["That ",
    FontSize->16],
  StyleBox["hh[a,b]",
    FontFamily->"Courier",
    FontSize->16],
  StyleBox["=",
    FontSize->16],
  Cell[BoxData[
      RowBox[{
        SubscriptBox[
          StyleBox["X1",
            FontFamily->"Courier",
            FontSize->16], 
          RowBox[{
            StyleBox["a",
              FontSize->16], ";", 
            StyleBox["b",
              FontSize->16]}]], 
        StyleBox["+",
          FontSize->16], 
        SubscriptBox[
          StyleBox["X1",
            FontFamily->"Courier",
            FontSize->16], 
          RowBox[{
            StyleBox["b",
              FontSize->16], ";", 
            StyleBox["a",
              FontSize->16]}]]}]]],
  StyleBox[" satisfies Rdd=0 to order 1, can be checked directly by calling ",
    
    FontSize->16],
  StyleBox["RGtensors",
    FontFamily->"Courier",
    FontSize->16],
  StyleBox[" with this for hab",
    FontSize->16]
}], "Text",
  FontColor->RGBColor[0, 0, 1]],

Cell[CellGroupData[{

Cell[BoxData[
    \(RGtensors[FacSimp[gh1 /. CoordSolRules], xCoord, {0, 0}]\)], "Input"],

Cell[BoxData[
    InterpretationBox[
      RowBox[{"\<\"gdd = \"\>", "\[InvisibleSpace]", 
        RowBox[{"{", 
          RowBox[{
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[
                  RowBox[{\(-\(\(2\ M - r\)\/r\)\), "+", 
                    FractionBox[
                      RowBox[{"2", " ", 
                        RowBox[{"(", 
                          
                          RowBox[{\(2\ M\^2\ \(X1[2]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), 
                            "-", \(M\ r\ \(X1[2]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{\(r\^3\), " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[1]\), 
                                  TagBox[\((1, 0, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], ")"}], 
                        " ", "lam"}], \(r\^3\)], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ -1, 
                      Plus[ 
                        Times[ 2, M], 
                        Times[ -1, r]], 
                      Power[ r, -1]], 
                    Times[ 2, 
                      Power[ r, -3], 
                      Plus[ 
                        Times[ 2, 
                          Power[ M, 2], 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, M, r, 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 
                          Power[ r, 3], 
                          Derivative[ 1, 0, 0, 0][ 
                            X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{
                    RowBox[{\(1\/\(\((2\ M - r)\)\ r\)\), 
                      RowBox[{"(", 
                        RowBox[{
                          RowBox[{"(", 
                            
                            RowBox[{\(2\ M\ \(X1[1]\)[t, 
                                  r, \[Theta], \[CurlyPhi]]\), "+", 
                              RowBox[{"2", " ", "M", " ", "r", " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[1]\), 
                                    TagBox[\((0, 1, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                              RowBox[{\(r\^2\), " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[1]\), 
                                    TagBox[\((0, 1, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                              RowBox[{"2", " ", "M", " ", "r", " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[2]\), 
                                    TagBox[\((1, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                              RowBox[{\(r\^2\), " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[2]\), 
                                    TagBox[\((1, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}]}], 
                            ")"}], " ", "lam"}], ")"}]}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Power[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], -1], 
                      Power[ r, -1], 
                      Plus[ 
                        Times[ 2, M, 
                          X1[ 1][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 2, M, r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Power[ r, 2], 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 2, M, r, 
                          Derivative[ 1, 0, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Power[ r, 2], 
                          Derivative[ 1, 0, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{
                    RowBox[{
                      RowBox[{"(", 
                        RowBox[{
                          RowBox[{
                            SuperscriptBox[\(X1[1]\), 
                              TagBox[\((0, 0, 1, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
                          RowBox[{
                            SuperscriptBox[\(X1[3]\), 
                              TagBox[\((1, 0, 0, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], " ", 
                      "lam"}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Plus[ 
                      Derivative[ 0, 0, 1, 0][ 
                        X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
                      Derivative[ 1, 0, 0, 0][ 
                        X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]], 
                ",", 
                InterpretationBox[
                  RowBox[{
                    RowBox[{
                      RowBox[{"(", 
                        RowBox[{
                          RowBox[{
                            SuperscriptBox[\(X1[1]\), 
                              TagBox[\((0, 0, 0, 1)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
                          RowBox[{
                            SuperscriptBox[\(X1[4]\), 
                              TagBox[\((1, 0, 0, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], " ", 
                      "lam"}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Plus[ 
                      Derivative[ 0, 0, 0, 1][ 
                        X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
                      Derivative[ 1, 0, 0, 0][ 
                        X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]]}], 
              "}"}], ",", 
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[
                  RowBox[{
                    RowBox[{\(1\/\(\((2\ M - r)\)\ r\)\), 
                      RowBox[{"(", 
                        RowBox[{
                          RowBox[{"(", 
                            
                            RowBox[{\(2\ M\ \(X1[1]\)[t, 
                                  r, \[Theta], \[CurlyPhi]]\), "+", 
                              RowBox[{"2", " ", "M", " ", "r", " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[1]\), 
                                    TagBox[\((0, 1, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                              RowBox[{\(r\^2\), " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[1]\), 
                                    TagBox[\((0, 1, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                              RowBox[{"2", " ", "M", " ", "r", " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[2]\), 
                                    TagBox[\((1, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                              RowBox[{\(r\^2\), " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[2]\), 
                                    TagBox[\((1, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}]}], 
                            ")"}], " ", "lam"}], ")"}]}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Power[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], -1], 
                      Power[ r, -1], 
                      Plus[ 
                        Times[ 2, M, 
                          X1[ 1][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 2, M, r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Power[ r, 2], 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 2, M, r, 
                          Derivative[ 1, 0, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Power[ r, 2], 
                          Derivative[ 1, 0, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{\(r\/\(2\ M - r\)\), "+", 
                    FractionBox[
                      RowBox[{"2", " ", 
                        RowBox[{"(", 
                          
                          RowBox[{\(\(-M\)\ \(X1[2]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{"2", " ", "M", " ", "r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[2]\), 
                                  TagBox[\((0, 1, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                            RowBox[{\(r\^2\), " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[2]\), 
                                  TagBox[\((0, 1, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], ")"}], 
                        " ", "lam"}], \(\((2\ M - r)\)\ r\)], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Power[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], -1], r], 
                    Times[ 2, 
                      Power[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], -1], 
                      Power[ r, -1], 
                      Plus[ 
                        Times[ -1, M, 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 2, M, r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Power[ r, 2], 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{
                    FractionBox[
                      RowBox[{
                        RowBox[{"(", 
                          
                          RowBox[{\(\(-2\)\ \(X1[3]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[2]\), 
                                  TagBox[\((0, 0, 1, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[3]\), 
                                  TagBox[\((0, 1, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], ")"}], 
                        " ", "lam"}], "r"], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Power[ r, -1], 
                      Plus[ 
                        Times[ -2, 
                          X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 0, 1, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{
                    FractionBox[
                      RowBox[{
                        RowBox[{"(", 
                          
                          RowBox[{\(\(-2\)\ \(X1[4]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[2]\), 
                                  TagBox[\((0, 0, 0, 1)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[4]\), 
                                  TagBox[\((0, 1, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], ")"}], 
                        " ", "lam"}], "r"], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Power[ r, -1], 
                      Plus[ 
                        Times[ -2, 
                          X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 0, 0, 1][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]]}], "}"}], ",", 
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[
                  RowBox[{
                    RowBox[{
                      RowBox[{"(", 
                        RowBox[{
                          RowBox[{
                            SuperscriptBox[\(X1[1]\), 
                              TagBox[\((0, 0, 1, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
                          RowBox[{
                            SuperscriptBox[\(X1[3]\), 
                              TagBox[\((1, 0, 0, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], " ", 
                      "lam"}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Plus[ 
                      Derivative[ 0, 0, 1, 0][ 
                        X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
                      Derivative[ 1, 0, 0, 0][ 
                        X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]], 
                ",", 
                InterpretationBox[
                  RowBox[{
                    FractionBox[
                      RowBox[{
                        RowBox[{"(", 
                          
                          RowBox[{\(\(-2\)\ \(X1[3]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[2]\), 
                                  TagBox[\((0, 0, 1, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[3]\), 
                                  TagBox[\((0, 1, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], ")"}], 
                        " ", "lam"}], "r"], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Power[ r, -1], 
                      Plus[ 
                        Times[ -2, 
                          X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 0, 1, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{\(-r\^2\), "-", 
                    RowBox[{"2", " ", 
                      RowBox[{"(", 
                        
                        RowBox[{\(2\ M\ \(X1[2]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\), 
                          "-", \(r\ \(X1[2]\)[t, r, \[Theta], \[CurlyPhi]]\), 
                          "-", 
                          RowBox[{
                            SuperscriptBox[\(X1[3]\), 
                              TagBox[\((0, 0, 1, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], " ", 
                      "lam"}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ -1, 
                      Power[ r, 2]], 
                    Times[ -2, 
                      Plus[ 
                        Times[ 2, M, 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, r, 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Derivative[ 0, 0, 1, 0][ 
                            X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{
                    RowBox[{
                      RowBox[{"(", 
                        
                        RowBox[{\(\(-2\)\ Cot[\[Theta]]\ \(X1[4]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\), "+", 
                          RowBox[{
                            SuperscriptBox[\(X1[3]\), 
                              TagBox[\((0, 0, 0, 1)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
                          RowBox[{
                            SuperscriptBox[\(X1[4]\), 
                              TagBox[\((0, 0, 1, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], " ", 
                      "lam"}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Plus[ 
                      Times[ -2, 
                        Cot[ \[Theta]], 
                        X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
                      Derivative[ 0, 0, 0, 1][ 
                        X1[ 3]][ t, r, \[Theta], \[CurlyPhi]], 
                      Derivative[ 0, 0, 1, 0][ 
                        X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]]}], 
              "}"}], ",", 
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[
                  RowBox[{
                    RowBox[{
                      RowBox[{"(", 
                        RowBox[{
                          RowBox[{
                            SuperscriptBox[\(X1[1]\), 
                              TagBox[\((0, 0, 0, 1)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
                          RowBox[{
                            SuperscriptBox[\(X1[4]\), 
                              TagBox[\((1, 0, 0, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], " ", 
                      "lam"}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Plus[ 
                      Derivative[ 0, 0, 0, 1][ 
                        X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
                      Derivative[ 1, 0, 0, 0][ 
                        X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]], 
                ",", 
                InterpretationBox[
                  RowBox[{
                    FractionBox[
                      RowBox[{
                        RowBox[{"(", 
                          
                          RowBox[{\(\(-2\)\ \(X1[4]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[2]\), 
                                  TagBox[\((0, 0, 0, 1)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[4]\), 
                                  TagBox[\((0, 1, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], ")"}], 
                        " ", "lam"}], "r"], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Power[ r, -1], 
                      Plus[ 
                        Times[ -2, 
                          X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 0, 0, 1][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{
                    RowBox[{
                      RowBox[{"(", 
                        
                        RowBox[{\(\(-2\)\ Cot[\[Theta]]\ \(X1[4]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\), "+", 
                          RowBox[{
                            SuperscriptBox[\(X1[3]\), 
                              TagBox[\((0, 0, 0, 1)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
                          RowBox[{
                            SuperscriptBox[\(X1[4]\), 
                              TagBox[\((0, 0, 1, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], " ", 
                      "lam"}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Plus[ 
                      Times[ -2, 
                        Cot[ \[Theta]], 
                        X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
                      Derivative[ 0, 0, 0, 1][ 
                        X1[ 3]][ t, r, \[Theta], \[CurlyPhi]], 
                      Derivative[ 0, 0, 1, 0][ 
                        X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]], 
                ",", 
                InterpretationBox[
                  RowBox[{\(-\(r\^2\ Sin[\[Theta]]\^2\)\), "-", 
                    RowBox[{"2", " ", 
                      RowBox[{"(", 
                        
                        RowBox[{\(2\ M\ Sin[\[Theta]]\^2\ \(X1[2]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\), 
                          "-", \(r\ Sin[\[Theta]]\^2\ \(X1[2]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\), 
                          "-", \(Cos[\[Theta]]\ Sin[\[Theta]]\ \(X1[3]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\), "-", 
                          RowBox[{
                            SuperscriptBox[\(X1[4]\), 
                              TagBox[\((0, 0, 0, 1)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], " ", 
                      "lam"}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ -1, 
                      Power[ r, 2], 
                      Power[ 
                        Sin[ \[Theta]], 2]], 
                    Times[ -2, 
                      Plus[ 
                        Times[ 2, M, 
                          Power[ 
                            Sin[ \[Theta]], 2], 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, r, 
                          Power[ 
                            Sin[ \[Theta]], 2], 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Cos[ \[Theta]], 
                          Sin[ \[Theta]], 
                          X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Derivative[ 0, 0, 0, 1][ 
                            X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 
                    1]]}], "}"}]}], "}"}]}],
      SequenceForm[ "gdd = ", {{
        SeriesData[ lam, 0, {
          Times[ -1, 
            Plus[ 
              Times[ 2, M], 
              Times[ -1, r]], 
            Power[ r, -1]], 
          Times[ 2, 
            Power[ r, -3], 
            Plus[ 
              Times[ 2, 
                Power[ M, 2], 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, M, r, 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 
                Power[ r, 3], 
                Derivative[ 1, 0, 0, 0][ 
                  X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Power[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], -1], 
            Power[ r, -1], 
            Plus[ 
              Times[ 2, M, 
                X1[ 1][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 2, M, r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Power[ r, 2], 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 2, M, r, 
                Derivative[ 1, 0, 0, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Power[ r, 2], 
                Derivative[ 1, 0, 0, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Plus[ 
            Derivative[ 0, 0, 1, 0][ 
              X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
            Derivative[ 1, 0, 0, 0][ 
              X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Plus[ 
            Derivative[ 0, 0, 0, 1][ 
              X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
            Derivative[ 1, 0, 0, 0][ 
              X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]}, {
        SeriesData[ lam, 0, {
          Times[ 
            Power[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], -1], 
            Power[ r, -1], 
            Plus[ 
              Times[ 2, M, 
                X1[ 1][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 2, M, r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Power[ r, 2], 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 2, M, r, 
                Derivative[ 1, 0, 0, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Power[ r, 2], 
                Derivative[ 1, 0, 0, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Power[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], -1], r], 
          Times[ 2, 
            Power[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], -1], 
            Power[ r, -1], 
            Plus[ 
              Times[ -1, M, 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 2, M, r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Power[ r, 2], 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Power[ r, -1], 
            Plus[ 
              Times[ -2, 
                X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 0, 1, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Power[ r, -1], 
            Plus[ 
              Times[ -2, 
                X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 0, 0, 1][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1]}, {
        SeriesData[ lam, 0, {
          Plus[ 
            Derivative[ 0, 0, 1, 0][ 
              X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
            Derivative[ 1, 0, 0, 0][ 
              X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Power[ r, -1], 
            Plus[ 
              Times[ -2, 
                X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 0, 1, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ -1, 
            Power[ r, 2]], 
          Times[ -2, 
            Plus[ 
              Times[ 2, M, 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, r, 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Derivative[ 0, 0, 1, 0][ 
                  X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 1], 
        SeriesData[ lam, 0, {
          Plus[ 
            Times[ -2, 
              Cot[ \[Theta]], 
              X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
            Derivative[ 0, 0, 0, 1][ 
              X1[ 3]][ t, r, \[Theta], \[CurlyPhi]], 
            Derivative[ 0, 0, 1, 0][ 
              X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1]}, {
        SeriesData[ lam, 0, {
          Plus[ 
            Derivative[ 0, 0, 0, 1][ 
              X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
            Derivative[ 1, 0, 0, 0][ 
              X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Power[ r, -1], 
            Plus[ 
              Times[ -2, 
                X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 0, 0, 1][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Plus[ 
            Times[ -2, 
              Cot[ \[Theta]], 
              X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
            Derivative[ 0, 0, 0, 1][ 
              X1[ 3]][ t, r, \[Theta], \[CurlyPhi]], 
            Derivative[ 0, 0, 1, 0][ 
              X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ -1, 
            Power[ r, 2], 
            Power[ 
              Sin[ \[Theta]], 2]], 
          Times[ -2, 
            Plus[ 
              Times[ 2, M, 
                Power[ 
                  Sin[ \[Theta]], 2], 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, r, 
                Power[ 
                  Sin[ \[Theta]], 2], 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Cos[ \[Theta]], 
                Sin[ \[Theta]], 
                X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Derivative[ 0, 0, 0, 1][ 
                  X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 1]}}],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[
      RowBox[{"\<\"LineElement = \"\>", "\[InvisibleSpace]", 
        TagBox[
          InterpretationBox[
            
            RowBox[{\((\(r\ d[r]\^2\)\/\(2\ M - r\) + \(\((\(-2\)\ M + r)\)\ \
d[t]\^2\)\/r - r\^2\ d[\[Theta]]\^2 - 
                  r\^2\ d[\[CurlyPhi]]\^2\ Sin[\[Theta]]\^2)\), "+", 
              RowBox[{
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{\(-2\), " ", \(d[\[CurlyPhi]]\^2\), " ", 
                      RowBox[{"(", 
                        
                        RowBox[{\(2\ M\ Sin[\[Theta]]\^2\ \(X1[2]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\), 
                          "-", \(r\ Sin[\[Theta]]\^2\ \(X1[2]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\), 
                          "-", \(Cos[\[Theta]]\ Sin[\[Theta]]\ \(X1[3]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\), "-", 
                          RowBox[{
                            SuperscriptBox[\(X1[4]\), 
                              TagBox[\((0, 0, 0, 1)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}]}], "-",
                     
                    RowBox[{"2", " ", \(d[\[Theta]]\^2\), " ", 
                      RowBox[{"(", 
                        
                        RowBox[{\(2\ M\ \(X1[2]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\), 
                          "-", \(r\ \(X1[2]\)[t, r, \[Theta], \[CurlyPhi]]\), 
                          "-", 
                          RowBox[{
                            SuperscriptBox[\(X1[3]\), 
                              TagBox[\((0, 0, 1, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}]}], "-",
                     
                    RowBox[{
                    "2", " ", \(d[\[Theta]]\), " ", \(d[\[CurlyPhi]]\), " ", 
                      RowBox[{"(", 
                        
                        RowBox[{\(2\ Cot[\[Theta]]\ \(X1[4]\)[t, 
                              r, \[Theta], \[CurlyPhi]]\), "-", 
                          RowBox[{
                            SuperscriptBox[\(X1[3]\), 
                              TagBox[\((0, 0, 0, 1)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}], "-", 
                          RowBox[{
                            SuperscriptBox[\(X1[4]\), 
                              TagBox[\((0, 0, 1, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(t, 
                            r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}]}], "+",
                     
                    FractionBox[
                      RowBox[{"2", " ", \(d[r]\^2\), " ", 
                        RowBox[{"(", 
                          
                          RowBox[{\(\(-M\)\ \(X1[2]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{"2", " ", "M", " ", "r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[2]\), 
                                  TagBox[\((0, 1, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                            RowBox[{\(r\^2\), " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[2]\), 
                                  TagBox[\((0, 1, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], 
                          ")"}]}], \(\((2\ M - r)\)\ r\)], "+", 
                    FractionBox[
                      RowBox[{"2", " ", \(d[t]\^2\), " ", 
                        RowBox[{"(", 
                          
                          RowBox[{\(2\ M\^2\ \(X1[2]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), 
                            "-", \(M\ r\ \(X1[2]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{\(r\^3\), " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[1]\), 
                                  TagBox[\((1, 0, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], 
                          ")"}]}], \(r\^3\)], "+", 
                    RowBox[{\(d[r]\), " ", 
                      RowBox[{"(", 
                        RowBox[{
                          FractionBox[
                            RowBox[{"2", " ", \(d[\[Theta]]\), " ", 
                              RowBox[{"(", 
                                
                                RowBox[{\(\(-2\)\ \(X1[3]\)[t, 
                                      r, \[Theta], \[CurlyPhi]]\), "+", 
                                  RowBox[{"r", " ", 
                                    RowBox[{
                                      SuperscriptBox[\(X1[2]\), 
                                        TagBox[\((0, 0, 1, 0)\),
                                        Derivative],
                                        MultilineFunction->None], "[", \(t, 
                                      r, \[Theta], \[CurlyPhi]\), "]"}]}], 
                                  "+", 
                                  RowBox[{"r", " ", 
                                    RowBox[{
                                      SuperscriptBox[\(X1[3]\), 
                                        TagBox[\((0, 1, 0, 0)\),
                                        Derivative],
                                        MultilineFunction->None], "[", \(t, 
                                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], 
                                ")"}]}], "r"], "+", 
                          FractionBox[
                            RowBox[{"2", " ", \(d[\[CurlyPhi]]\), " ", 
                              RowBox[{"(", 
                                
                                RowBox[{\(\(-2\)\ \(X1[4]\)[t, 
                                      r, \[Theta], \[CurlyPhi]]\), "+", 
                                  RowBox[{"r", " ", 
                                    RowBox[{
                                      SuperscriptBox[\(X1[2]\), 
                                        TagBox[\((0, 0, 0, 1)\),
                                        Derivative],
                                        MultilineFunction->None], "[", \(t, 
                                      r, \[Theta], \[CurlyPhi]\), "]"}]}], 
                                  "+", 
                                  RowBox[{"r", " ", 
                                    RowBox[{
                                      SuperscriptBox[\(X1[4]\), 
                                        TagBox[\((0, 1, 0, 0)\),
                                        Derivative],
                                        MultilineFunction->None], "[", \(t, 
                                      r, \[Theta], \[CurlyPhi]\), "]"}]}]}], 
                                ")"}]}], "r"], "+", 
                          RowBox[{\(1\/\(\((2\ M - r)\)\ r\)\), 
                            RowBox[{"(", 
                              RowBox[{"2", " ", \(d[t]\), " ", 
                                RowBox[{"(", 
                                  
                                  RowBox[{\(2\ M\ \(X1[1]\)[t, 
                                        r, \[Theta], \[CurlyPhi]]\), "+", 
                                    RowBox[{"2", " ", "M", " ", "r", " ", 
                                      RowBox[{
                                        SuperscriptBox[\(X1[1]\), 
                                        TagBox[\((0, 1, 0, 0)\),
                                        Derivative],
                                        MultilineFunction->None], "[", \(t, 
                                        r, \[Theta], \[CurlyPhi]\), "]"}]}], 
                                    "-", 
                                    RowBox[{\(r\^2\), " ", 
                                      RowBox[{
                                        SuperscriptBox[\(X1[1]\), 
                                        TagBox[\((0, 1, 0, 0)\),
                                        Derivative],
                                        MultilineFunction->None], "[", \(t, 
                                        r, \[Theta], \[CurlyPhi]\), "]"}]}], 
                                    "+", 
                                    RowBox[{"2", " ", "M", " ", "r", " ", 
                                      RowBox[{
                                        SuperscriptBox[\(X1[2]\), 
                                        TagBox[\((1, 0, 0, 0)\),
                                        Derivative],
                                        MultilineFunction->None], "[", \(t, 
                                        r, \[Theta], \[CurlyPhi]\), "]"}]}], 
                                    "-", 
                                    RowBox[{\(r\^2\), " ", 
                                      RowBox[{
                                        SuperscriptBox[\(X1[2]\), 
                                        TagBox[\((1, 0, 0, 0)\),
                                        Derivative],
                                        MultilineFunction->None], "[", \(t, 
                                        r, \[Theta], \[CurlyPhi]\), "]"}]}]}],
                                   ")"}]}], ")"}]}]}], ")"}]}], "+", 
                    RowBox[{\(d[t]\), " ", 
                      RowBox[{"(", 
                        RowBox[{
                          RowBox[{"2", " ", \(d[\[Theta]]\), " ", 
                            RowBox[{"(", 
                              RowBox[{
                                RowBox[{
                                  SuperscriptBox[\(X1[1]\), 
                                    TagBox[\((0, 0, 1, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
                                RowBox[{
                                  SuperscriptBox[\(X1[3]\), 
                                    TagBox[\((1, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], 
                              ")"}]}], "+", 
                          RowBox[{"2", " ", \(d[\[CurlyPhi]]\), " ", 
                            RowBox[{"(", 
                              RowBox[{
                                RowBox[{
                                  SuperscriptBox[\(X1[1]\), 
                                    TagBox[\((0, 0, 0, 1)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
                                RowBox[{
                                  SuperscriptBox[\(X1[4]\), 
                                    TagBox[\((1, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], 
                              ")"}]}]}], ")"}]}]}], ")"}], " ", "lam"}], "+", 
              
              InterpretationBox[\(O[lam]\^2\),
                SeriesData[ lam, 0, {}, 0, 2, 1]]}],
            SeriesData[ lam, 0, {
              Plus[ 
                Times[ 
                  Power[ 
                    Plus[ 
                      Times[ 2, M], 
                      Times[ -1, r]], -1], r, 
                  Power[ 
                    d[ r], 2]], 
                Times[ 
                  Power[ r, -1], 
                  Plus[ 
                    Times[ -2, M], r], 
                  Power[ 
                    d[ t], 2]], 
                Times[ -1, 
                  Power[ r, 2], 
                  Power[ 
                    d[ \[Theta]], 2]], 
                Times[ -1, 
                  Power[ r, 2], 
                  Power[ 
                    d[ \[CurlyPhi]], 2], 
                  Power[ 
                    Sin[ \[Theta]], 2]]], 
              Plus[ 
                Times[ -2, 
                  Power[ 
                    d[ \[CurlyPhi]], 2], 
                  Plus[ 
                    Times[ 2, M, 
                      Power[ 
                        Sin[ \[Theta]], 2], 
                      X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ -1, r, 
                      Power[ 
                        Sin[ \[Theta]], 2], 
                      X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ -1, 
                      Cos[ \[Theta]], 
                      Sin[ \[Theta]], 
                      X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ -1, 
                      Derivative[ 0, 0, 0, 1][ 
                        X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]], 
                Times[ -2, 
                  Power[ 
                    d[ \[Theta]], 2], 
                  Plus[ 
                    Times[ 2, M, 
                      X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ -1, r, 
                      X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ -1, 
                      Derivative[ 0, 0, 1, 0][ 
                        X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]], 
                Times[ -2, 
                  d[ \[Theta]], 
                  d[ \[CurlyPhi]], 
                  Plus[ 
                    Times[ 2, 
                      Cot[ \[Theta]], 
                      X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ -1, 
                      Derivative[ 0, 0, 0, 1][ 
                        X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ -1, 
                      Derivative[ 0, 0, 1, 0][ 
                        X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]], 
                Times[ 2, 
                  Power[ 
                    Plus[ 
                      Times[ 2, M], 
                      Times[ -1, r]], -1], 
                  Power[ r, -1], 
                  Power[ 
                    d[ r], 2], 
                  Plus[ 
                    Times[ -1, M, 
                      X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ 2, M, r, 
                      Derivative[ 0, 1, 0, 0][ 
                        X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ -1, 
                      Power[ r, 2], 
                      Derivative[ 0, 1, 0, 0][ 
                        X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]], 
                Times[ 2, 
                  Power[ r, -3], 
                  Power[ 
                    d[ t], 2], 
                  Plus[ 
                    Times[ 2, 
                      Power[ M, 2], 
                      X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ -1, M, r, 
                      X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                    Times[ 
                      Power[ r, 3], 
                      Derivative[ 1, 0, 0, 0][ 
                        X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]]]], 
                Times[ 
                  d[ r], 
                  Plus[ 
                    Times[ 2, 
                      Power[ r, -1], 
                      d[ \[Theta]], 
                      Plus[ 
                        Times[ -2, 
                          X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 0, 1, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]], 
                    Times[ 2, 
                      Power[ r, -1], 
                      d[ \[CurlyPhi]], 
                      Plus[ 
                        Times[ -2, 
                          X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 0, 0, 1][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]], 
                    Times[ 2, 
                      Power[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], -1], 
                      Power[ r, -1], 
                      d[ t], 
                      Plus[ 
                        Times[ 2, M, 
                          X1[ 1][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 2, M, r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Power[ r, 2], 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 2, M, r, 
                          Derivative[ 1, 0, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Power[ r, 2], 
                          Derivative[ 1, 0, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]]], 
                Times[ 
                  d[ t], 
                  Plus[ 
                    Times[ 2, 
                      d[ \[Theta]], 
                      Plus[ 
                        Derivative[ 0, 0, 1, 0][ 
                          X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
                        Derivative[ 1, 0, 0, 0][ 
                          X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]], 
                    Times[ 2, 
                      d[ \[CurlyPhi]], 
                      Plus[ 
                        Derivative[ 0, 0, 0, 1][ 
                          X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
                        Derivative[ 1, 0, 0, 0][ 
                          X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]]]}, 0, 2, 
              1]],
          (Short[ #, 32]&)]}],
      SequenceForm[ "LineElement = ", 
        Short[ 
          SeriesData[ lam, 0, {
            Plus[ 
              Times[ 
                Power[ 
                  Plus[ 
                    Times[ 2, M], 
                    Times[ -1, r]], -1], r, 
                Power[ 
                  d[ r], 2]], 
              Times[ 
                Power[ r, -1], 
                Plus[ 
                  Times[ -2, M], r], 
                Power[ 
                  d[ t], 2]], 
              Times[ -1, 
                Power[ r, 2], 
                Power[ 
                  d[ \[Theta]], 2]], 
              Times[ -1, 
                Power[ r, 2], 
                Power[ 
                  d[ \[CurlyPhi]], 2], 
                Power[ 
                  Sin[ \[Theta]], 2]]], 
            Plus[ 
              Times[ -2, 
                Power[ 
                  d[ \[CurlyPhi]], 2], 
                Plus[ 
                  Times[ 2, M, 
                    Power[ 
                      Sin[ \[Theta]], 2], 
                    X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ -1, r, 
                    Power[ 
                      Sin[ \[Theta]], 2], 
                    X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ -1, 
                    Cos[ \[Theta]], 
                    Sin[ \[Theta]], 
                    X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ -1, 
                    Derivative[ 0, 0, 0, 1][ 
                      X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]], 
              Times[ -2, 
                Power[ 
                  d[ \[Theta]], 2], 
                Plus[ 
                  Times[ 2, M, 
                    X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ -1, r, 
                    X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ -1, 
                    Derivative[ 0, 0, 1, 0][ 
                      X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]], 
              Times[ -2, 
                d[ \[Theta]], 
                d[ \[CurlyPhi]], 
                Plus[ 
                  Times[ 2, 
                    Cot[ \[Theta]], 
                    X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ -1, 
                    Derivative[ 0, 0, 0, 1][ 
                      X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ -1, 
                    Derivative[ 0, 0, 1, 0][ 
                      X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]], 
              Times[ 2, 
                Power[ 
                  Plus[ 
                    Times[ 2, M], 
                    Times[ -1, r]], -1], 
                Power[ r, -1], 
                Power[ 
                  d[ r], 2], 
                Plus[ 
                  Times[ -1, M, 
                    X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ 2, M, r, 
                    Derivative[ 0, 1, 0, 0][ 
                      X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ -1, 
                    Power[ r, 2], 
                    Derivative[ 0, 1, 0, 0][ 
                      X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]], 
              Times[ 2, 
                Power[ r, -3], 
                Power[ 
                  d[ t], 2], 
                Plus[ 
                  Times[ 2, 
                    Power[ M, 2], 
                    X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ -1, M, r, 
                    X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                  Times[ 
                    Power[ r, 3], 
                    Derivative[ 1, 0, 0, 0][ 
                      X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]]]], 
              Times[ 
                d[ r], 
                Plus[ 
                  Times[ 2, 
                    Power[ r, -1], 
                    d[ \[Theta]], 
                    Plus[ 
                      Times[ -2, 
                        X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
                      Times[ r, 
                        Derivative[ 0, 0, 1, 0][ 
                          X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                      Times[ r, 
                        Derivative[ 0, 1, 0, 0][ 
                          X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]], 
                  Times[ 2, 
                    Power[ r, -1], 
                    d[ \[CurlyPhi]], 
                    Plus[ 
                      Times[ -2, 
                        X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
                      Times[ r, 
                        Derivative[ 0, 0, 0, 1][ 
                          X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                      Times[ r, 
                        Derivative[ 0, 1, 0, 0][ 
                          X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]], 
                  Times[ 2, 
                    Power[ 
                      Plus[ 
                        Times[ 2, M], 
                        Times[ -1, r]], -1], 
                    Power[ r, -1], 
                    d[ t], 
                    Plus[ 
                      Times[ 2, M, 
                        X1[ 1][ t, r, \[Theta], \[CurlyPhi]]], 
                      Times[ 2, M, r, 
                        Derivative[ 0, 1, 0, 0][ 
                          X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
                      Times[ -1, 
                        Power[ r, 2], 
                        Derivative[ 0, 1, 0, 0][ 
                          X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
                      Times[ 2, M, r, 
                        Derivative[ 1, 0, 0, 0][ 
                          X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                      Times[ -1, 
                        Power[ r, 2], 
                        Derivative[ 1, 0, 0, 0][ 
                          X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]]], 
              Times[ 
                d[ t], 
                Plus[ 
                  Times[ 2, 
                    d[ \[Theta]], 
                    Plus[ 
                      Derivative[ 0, 0, 1, 0][ 
                        X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
                      Derivative[ 1, 0, 0, 0][ 
                        X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]], 
                  Times[ 2, 
                    d[ \[CurlyPhi]], 
                    Plus[ 
                      Derivative[ 0, 0, 0, 1][ 
                        X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
                      Derivative[ 1, 0, 0, 0][ 
                        X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]]]}, 0, 2, 1],
           32]],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[
      RowBox[{"\<\"gUU = \"\>", "\[InvisibleSpace]", 
        RowBox[{"{", 
          RowBox[{
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[
                  RowBox[{\(-\(r\/\(2\ M - r\)\)\), "-", 
                    FractionBox[
                      RowBox[{"2", " ", 
                        RowBox[{"(", 
                          
                          RowBox[{\(2\ M\^2\ \(X1[2]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), 
                            "-", \(M\ r\ \(X1[2]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{\(r\^3\), " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[1]\), 
                                  TagBox[\((1, 0, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], ")"}], 
                        " ", "lam"}], \(r\ \((\(-2\)\ M + r)\)\^2\)], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ -1, 
                      Power[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], -1], r], 
                    Times[ -2, 
                      Power[ r, -1], 
                      Power[ 
                        Plus[ 
                          Times[ -2, M], r], -2], 
                      Plus[ 
                        Times[ 2, 
                          Power[ M, 2], 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, M, r, 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 
                          Power[ r, 3], 
                          Derivative[ 1, 0, 0, 0][ 
                            X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{
                    RowBox[{\(1\/\(\((2\ M - r)\)\ r\)\), 
                      RowBox[{"(", 
                        RowBox[{
                          RowBox[{"(", 
                            
                            RowBox[{\(2\ M\ \(X1[1]\)[t, 
                                  r, \[Theta], \[CurlyPhi]]\), "+", 
                              RowBox[{"2", " ", "M", " ", "r", " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[1]\), 
                                    TagBox[\((0, 1, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                              RowBox[{\(r\^2\), " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[1]\), 
                                    TagBox[\((0, 1, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                              RowBox[{"2", " ", "M", " ", "r", " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[2]\), 
                                    TagBox[\((1, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                              RowBox[{\(r\^2\), " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[2]\), 
                                    TagBox[\((1, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}]}], 
                            ")"}], " ", "lam"}], ")"}]}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Power[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], -1], 
                      Power[ r, -1], 
                      Plus[ 
                        Times[ 2, M, 
                          X1[ 1][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 2, M, r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Power[ r, 2], 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 2, M, r, 
                          Derivative[ 1, 0, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Power[ r, 2], 
                          Derivative[ 1, 0, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{
                    RowBox[{"-", 
                      FractionBox[
                        RowBox[{
                          RowBox[{"(", 
                            RowBox[{
                              RowBox[{
                                SuperscriptBox[\(X1[1]\), 
                                  TagBox[\((0, 0, 1, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
                              RowBox[{
                                SuperscriptBox[\(X1[3]\), 
                                  TagBox[\((1, 0, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], 
                          " ", "lam"}], \(\((2\ M - r)\)\ r\)]}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ -1, 
                      Power[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], -1], 
                      Power[ r, -1], 
                      Plus[ 
                        Derivative[ 0, 0, 1, 0][ 
                          X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
                        Derivative[ 1, 0, 0, 0][ 
                          X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]}, 1, 2, 1]],
                 ",", 
                InterpretationBox[
                  RowBox[{
                    RowBox[{"-", 
                      FractionBox[
                        RowBox[{\(Csc[\[Theta]]\^2\), " ", 
                          RowBox[{"(", 
                            RowBox[{
                              RowBox[{
                                SuperscriptBox[\(X1[1]\), 
                                  TagBox[\((0, 0, 0, 1)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
                              RowBox[{
                                SuperscriptBox[\(X1[4]\), 
                                  TagBox[\((1, 0, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], 
                          " ", "lam"}], \(\((2\ M - r)\)\ r\)]}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ -1, 
                      Power[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], -1], 
                      Power[ r, -1], 
                      Power[ 
                        Csc[ \[Theta]], 2], 
                      Plus[ 
                        Derivative[ 0, 0, 0, 1][ 
                          X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
                        Derivative[ 1, 0, 0, 0][ 
                          X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]}, 1, 2, 
                    1]]}], "}"}], ",", 
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[
                  RowBox[{
                    RowBox[{\(1\/\(\((2\ M - r)\)\ r\)\), 
                      RowBox[{"(", 
                        RowBox[{
                          RowBox[{"(", 
                            
                            RowBox[{\(2\ M\ \(X1[1]\)[t, 
                                  r, \[Theta], \[CurlyPhi]]\), "+", 
                              RowBox[{"2", " ", "M", " ", "r", " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[1]\), 
                                    TagBox[\((0, 1, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                              RowBox[{\(r\^2\), " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[1]\), 
                                    TagBox[\((0, 1, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                              RowBox[{"2", " ", "M", " ", "r", " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[2]\), 
                                    TagBox[\((1, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}], "-", 
                              RowBox[{\(r\^2\), " ", 
                                RowBox[{
                                  SuperscriptBox[\(X1[2]\), 
                                    TagBox[\((1, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], "[", \(t, 
                                  r, \[Theta], \[CurlyPhi]\), "]"}]}]}], 
                            ")"}], " ", "lam"}], ")"}]}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Power[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], -1], 
                      Power[ r, -1], 
                      Plus[ 
                        Times[ 2, M, 
                          X1[ 1][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 2, M, r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Power[ r, 2], 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 2, M, r, 
                          Derivative[ 1, 0, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Power[ r, 2], 
                          Derivative[ 1, 0, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{\(\(2\ M - r\)\/r\), "-", 
                    FractionBox[
                      RowBox[{"2", " ", 
                        RowBox[{"(", 
                          RowBox[{\((\(-2\)\ M + r)\), " ", 
                            RowBox[{"(", 
                              
                              RowBox[{\(M\ \(X1[2]\)[t, 
                                    r, \[Theta], \[CurlyPhi]]\), "-", 
                                RowBox[{"2", " ", "M", " ", "r", " ", 
                                  RowBox[{
                                    SuperscriptBox[\(X1[2]\), 
                                      TagBox[\((0, 1, 0, 0)\),
                                        Derivative],
                                      MultilineFunction->None], "[", \(t, 
                                    r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                                
                                RowBox[{\(r\^2\), " ", 
                                  RowBox[{
                                    SuperscriptBox[\(X1[2]\), 
                                      TagBox[\((0, 1, 0, 0)\),
                                        Derivative],
                                      MultilineFunction->None], "[", \(t, 
                                    r, \[Theta], \[CurlyPhi]\), "]"}]}]}], 
                              ")"}]}], ")"}], " ", "lam"}], \(r\^3\)], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Plus[ 
                        Times[ 2, M], 
                        Times[ -1, r]], 
                      Power[ r, -1]], 
                    Times[ -2, 
                      Power[ r, -3], 
                      Plus[ 
                        Times[ -2, M], r], 
                      Plus[ 
                        Times[ M, 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -2, M, r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 
                          Power[ r, 2], 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{
                    FractionBox[
                      RowBox[{\((2\ M - r)\), " ", 
                        RowBox[{"(", 
                          
                          RowBox[{\(\(-2\)\ \(X1[3]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[2]\), 
                                  TagBox[\((0, 0, 1, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[3]\), 
                                  TagBox[\((0, 1, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], ")"}], 
                        " ", "lam"}], \(r\^4\)], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Plus[ 
                        Times[ 2, M], 
                        Times[ -1, r]], 
                      Power[ r, -4], 
                      Plus[ 
                        Times[ -2, 
                          X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 0, 1, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{
                    FractionBox[
                      
                      RowBox[{\((2\ M - r)\), " ", \(Csc[\[Theta]]\^2\), " ", 
                        
                        RowBox[{"(", 
                          
                          RowBox[{\(\(-2\)\ \(X1[4]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[2]\), 
                                  TagBox[\((0, 0, 0, 1)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[4]\), 
                                  TagBox[\((0, 1, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], ")"}], 
                        " ", "lam"}], \(r\^4\)], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Plus[ 
                        Times[ 2, M], 
                        Times[ -1, r]], 
                      Power[ r, -4], 
                      Power[ 
                        Csc[ \[Theta]], 2], 
                      Plus[ 
                        Times[ -2, 
                          X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 0, 0, 1][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]]}], "}"}], ",", 
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[
                  RowBox[{
                    RowBox[{"-", 
                      FractionBox[
                        RowBox[{
                          RowBox[{"(", 
                            RowBox[{
                              RowBox[{
                                SuperscriptBox[\(X1[1]\), 
                                  TagBox[\((0, 0, 1, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
                              RowBox[{
                                SuperscriptBox[\(X1[3]\), 
                                  TagBox[\((1, 0, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], 
                          " ", "lam"}], \(\((2\ M - r)\)\ r\)]}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ -1, 
                      Power[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], -1], 
                      Power[ r, -1], 
                      Plus[ 
                        Derivative[ 0, 0, 1, 0][ 
                          X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
                        Derivative[ 1, 0, 0, 0][ 
                          X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]}, 1, 2, 1]],
                 ",", 
                InterpretationBox[
                  RowBox[{
                    FractionBox[
                      RowBox[{\((2\ M - r)\), " ", 
                        RowBox[{"(", 
                          
                          RowBox[{\(\(-2\)\ \(X1[3]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[2]\), 
                                  TagBox[\((0, 0, 1, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[3]\), 
                                  TagBox[\((0, 1, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], ")"}], 
                        " ", "lam"}], \(r\^4\)], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Plus[ 
                        Times[ 2, M], 
                        Times[ -1, r]], 
                      Power[ r, -4], 
                      Plus[ 
                        Times[ -2, 
                          X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 0, 1, 0][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{\(-\(1\/r\^2\)\), "-", 
                    FractionBox[
                      RowBox[{"2", " ", 
                        RowBox[{"(", 
                          
                          RowBox[{\(\(-2\)\ M\ \(X1[2]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), 
                            "+", \(r\ \(X1[2]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{
                              SuperscriptBox[\(X1[3]\), 
                                TagBox[\((0, 0, 1, 0)\),
                                  Derivative],
                                MultilineFunction->None], "[", \(t, 
                              r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], " ",
                         "lam"}], \(r\^4\)], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ -1, 
                      Power[ r, -2]], 
                    Times[ -2, 
                      Power[ r, -4], 
                      Plus[ 
                        Times[ -2, M, 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Derivative[ 0, 0, 1, 0][ 
                          X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]}, 0, 2, 1]],
                 ",", 
                InterpretationBox[
                  RowBox[{
                    FractionBox[
                      RowBox[{\(Csc[\[Theta]]\^2\), " ", 
                        RowBox[{"(", 
                          
                          RowBox[{\(2\ Cot[\[Theta]]\ \(X1[4]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "-", 
                            RowBox[{
                              SuperscriptBox[\(X1[3]\), 
                                TagBox[\((0, 0, 0, 1)\),
                                  Derivative],
                                MultilineFunction->None], "[", \(t, 
                              r, \[Theta], \[CurlyPhi]\), "]"}], "-", 
                            RowBox[{
                              SuperscriptBox[\(X1[4]\), 
                                TagBox[\((0, 0, 1, 0)\),
                                  Derivative],
                                MultilineFunction->None], "[", \(t, 
                              r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], " ",
                         "lam"}], \(r\^4\)], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Power[ r, -4], 
                      Power[ 
                        Csc[ \[Theta]], 2], 
                      Plus[ 
                        Times[ 2, 
                          Cot[ \[Theta]], 
                          X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Derivative[ 0, 0, 0, 1][ 
                            X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Derivative[ 0, 0, 1, 0][ 
                            X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]]}], "}"}], ",", 
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[
                  RowBox[{
                    RowBox[{"-", 
                      FractionBox[
                        RowBox[{\(Csc[\[Theta]]\^2\), " ", 
                          RowBox[{"(", 
                            RowBox[{
                              RowBox[{
                                SuperscriptBox[\(X1[1]\), 
                                  TagBox[\((0, 0, 0, 1)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}], "+", 
                              RowBox[{
                                SuperscriptBox[\(X1[4]\), 
                                  TagBox[\((1, 0, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], 
                          " ", "lam"}], \(\((2\ M - r)\)\ r\)]}], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ -1, 
                      Power[ 
                        Plus[ 
                          Times[ 2, M], 
                          Times[ -1, r]], -1], 
                      Power[ r, -1], 
                      Power[ 
                        Csc[ \[Theta]], 2], 
                      Plus[ 
                        Derivative[ 0, 0, 0, 1][ 
                          X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
                        Derivative[ 1, 0, 0, 0][ 
                          X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]}, 1, 2, 1]],
                 ",", 
                InterpretationBox[
                  RowBox[{
                    FractionBox[
                      
                      RowBox[{\((2\ M - r)\), " ", \(Csc[\[Theta]]\^2\), " ", 
                        
                        RowBox[{"(", 
                          
                          RowBox[{\(\(-2\)\ \(X1[4]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[2]\), 
                                  TagBox[\((0, 0, 0, 1)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}], "+", 
                            RowBox[{"r", " ", 
                              RowBox[{
                                SuperscriptBox[\(X1[4]\), 
                                  TagBox[\((0, 1, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(t, 
                                r, \[Theta], \[CurlyPhi]\), "]"}]}]}], ")"}], 
                        " ", "lam"}], \(r\^4\)], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Plus[ 
                        Times[ 2, M], 
                        Times[ -1, r]], 
                      Power[ r, -4], 
                      Power[ 
                        Csc[ \[Theta]], 2], 
                      Plus[ 
                        Times[ -2, 
                          X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 0, 0, 1][ 
                            X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          Derivative[ 0, 1, 0, 0][ 
                            X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{
                    FractionBox[
                      RowBox[{\(Csc[\[Theta]]\^2\), " ", 
                        RowBox[{"(", 
                          
                          RowBox[{\(2\ Cot[\[Theta]]\ \(X1[4]\)[t, 
                                r, \[Theta], \[CurlyPhi]]\), "-", 
                            RowBox[{
                              SuperscriptBox[\(X1[3]\), 
                                TagBox[\((0, 0, 0, 1)\),
                                  Derivative],
                                MultilineFunction->None], "[", \(t, 
                              r, \[Theta], \[CurlyPhi]\), "]"}], "-", 
                            RowBox[{
                              SuperscriptBox[\(X1[4]\), 
                                TagBox[\((0, 0, 1, 0)\),
                                  Derivative],
                                MultilineFunction->None], "[", \(t, 
                              r, \[Theta], \[CurlyPhi]\), "]"}]}], ")"}], " ",
                         "lam"}], \(r\^4\)], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 1, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ 
                      Power[ r, -4], 
                      Power[ 
                        Csc[ \[Theta]], 2], 
                      Plus[ 
                        Times[ 2, 
                          Cot[ \[Theta]], 
                          X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Derivative[ 0, 0, 0, 1][ 
                            X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ -1, 
                          Derivative[ 0, 0, 1, 0][ 
                            X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 
                    1]], ",", 
                InterpretationBox[
                  RowBox[{\(-\(Csc[\[Theta]]\^2\/r\^2\)\), "-", 
                    FractionBox[
                      RowBox[{"2", " ", 
                        RowBox[{"(", 
                          RowBox[{\(Csc[\[Theta]]\^2\), " ", 
                            RowBox[{"(", 
                              
                              RowBox[{\(\(-2\)\ M\ \(X1[2]\)[t, 
                                    r, \[Theta], \[CurlyPhi]]\), 
                                "+", \(r\ \(X1[2]\)[t, 
                                    r, \[Theta], \[CurlyPhi]]\), 
                                "+", \(Cot[\[Theta]]\ \(X1[3]\)[t, 
                                    r, \[Theta], \[CurlyPhi]]\), "+", 
                                RowBox[{\(Csc[\[Theta]]\^2\), " ", 
                                  RowBox[{
                                    SuperscriptBox[\(X1[4]\), 
                                      TagBox[\((0, 0, 0, 1)\),
                                        Derivative],
                                      MultilineFunction->None], "[", \(t, 
                                    r, \[Theta], \[CurlyPhi]\), "]"}]}]}], 
                              ")"}]}], ")"}], " ", "lam"}], \(r\^4\)], "+", 
                    InterpretationBox[\(O[lam]\^2\),
                      SeriesData[ lam, 0, {}, 0, 2, 1]]}],
                  SeriesData[ lam, 0, {
                    Times[ -1, 
                      Power[ r, -2], 
                      Power[ 
                        Csc[ \[Theta]], 2]], 
                    Times[ -2, 
                      Power[ r, -4], 
                      Power[ 
                        Csc[ \[Theta]], 2], 
                      Plus[ 
                        Times[ -2, M, 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ r, 
                          X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 
                          Cot[ \[Theta]], 
                          X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
                        Times[ 
                          Power[ 
                            Csc[ \[Theta]], 2], 
                          Derivative[ 0, 0, 0, 1][ 
                            X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 
                    1]]}], "}"}]}], "}"}]}],
      SequenceForm[ "gUU = ", {{
        SeriesData[ lam, 0, {
          Times[ -1, 
            Power[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], -1], r], 
          Times[ -2, 
            Power[ r, -1], 
            Power[ 
              Plus[ 
                Times[ -2, M], r], -2], 
            Plus[ 
              Times[ 2, 
                Power[ M, 2], 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, M, r, 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 
                Power[ r, 3], 
                Derivative[ 1, 0, 0, 0][ 
                  X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Power[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], -1], 
            Power[ r, -1], 
            Plus[ 
              Times[ 2, M, 
                X1[ 1][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 2, M, r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Power[ r, 2], 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 2, M, r, 
                Derivative[ 1, 0, 0, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Power[ r, 2], 
                Derivative[ 1, 0, 0, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ -1, 
            Power[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], -1], 
            Power[ r, -1], 
            Plus[ 
              Derivative[ 0, 0, 1, 0][ 
                X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
              Derivative[ 1, 0, 0, 0][ 
                X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ -1, 
            Power[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], -1], 
            Power[ r, -1], 
            Power[ 
              Csc[ \[Theta]], 2], 
            Plus[ 
              Derivative[ 0, 0, 0, 1][ 
                X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
              Derivative[ 1, 0, 0, 0][ 
                X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]}, 1, 2, 1]}, {
        SeriesData[ lam, 0, {
          Times[ 
            Power[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], -1], 
            Power[ r, -1], 
            Plus[ 
              Times[ 2, M, 
                X1[ 1][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 2, M, r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Power[ r, 2], 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 1]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 2, M, r, 
                Derivative[ 1, 0, 0, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Power[ r, 2], 
                Derivative[ 1, 0, 0, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Plus[ 
              Times[ 2, M], 
              Times[ -1, r]], 
            Power[ r, -1]], 
          Times[ -2, 
            Power[ r, -3], 
            Plus[ 
              Times[ -2, M], r], 
            Plus[ 
              Times[ M, 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -2, M, r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 
                Power[ r, 2], 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Plus[ 
              Times[ 2, M], 
              Times[ -1, r]], 
            Power[ r, -4], 
            Plus[ 
              Times[ -2, 
                X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 0, 1, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Plus[ 
              Times[ 2, M], 
              Times[ -1, r]], 
            Power[ r, -4], 
            Power[ 
              Csc[ \[Theta]], 2], 
            Plus[ 
              Times[ -2, 
                X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 0, 0, 1][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1]}, {
        SeriesData[ lam, 0, {
          Times[ -1, 
            Power[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], -1], 
            Power[ r, -1], 
            Plus[ 
              Derivative[ 0, 0, 1, 0][ 
                X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
              Derivative[ 1, 0, 0, 0][ 
                X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Plus[ 
              Times[ 2, M], 
              Times[ -1, r]], 
            Power[ r, -4], 
            Plus[ 
              Times[ -2, 
                X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 0, 1, 0][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ -1, 
            Power[ r, -2]], 
          Times[ -2, 
            Power[ r, -4], 
            Plus[ 
              Times[ -2, M, 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Derivative[ 0, 0, 1, 0][ 
                X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]]]}, 0, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Power[ r, -4], 
            Power[ 
              Csc[ \[Theta]], 2], 
            Plus[ 
              Times[ 2, 
                Cot[ \[Theta]], 
                X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Derivative[ 0, 0, 0, 1][ 
                  X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Derivative[ 0, 0, 1, 0][ 
                  X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1]}, {
        SeriesData[ lam, 0, {
          Times[ -1, 
            Power[ 
              Plus[ 
                Times[ 2, M], 
                Times[ -1, r]], -1], 
            Power[ r, -1], 
            Power[ 
              Csc[ \[Theta]], 2], 
            Plus[ 
              Derivative[ 0, 0, 0, 1][ 
                X1[ 1]][ t, r, \[Theta], \[CurlyPhi]], 
              Derivative[ 1, 0, 0, 0][ 
                X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Plus[ 
              Times[ 2, M], 
              Times[ -1, r]], 
            Power[ r, -4], 
            Power[ 
              Csc[ \[Theta]], 2], 
            Plus[ 
              Times[ -2, 
                X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 0, 0, 1][ 
                  X1[ 2]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                Derivative[ 0, 1, 0, 0][ 
                  X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ 
            Power[ r, -4], 
            Power[ 
              Csc[ \[Theta]], 2], 
            Plus[ 
              Times[ 2, 
                Cot[ \[Theta]], 
                X1[ 4][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Derivative[ 0, 0, 0, 1][ 
                  X1[ 3]][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ -1, 
                Derivative[ 0, 0, 1, 0][ 
                  X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 1, 2, 1], 
        SeriesData[ lam, 0, {
          Times[ -1, 
            Power[ r, -2], 
            Power[ 
              Csc[ \[Theta]], 2]], 
          Times[ -2, 
            Power[ r, -4], 
            Power[ 
              Csc[ \[Theta]], 2], 
            Plus[ 
              Times[ -2, M, 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ r, 
                X1[ 2][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 
                Cot[ \[Theta]], 
                X1[ 3][ t, r, \[Theta], \[CurlyPhi]]], 
              Times[ 
                Power[ 
                  Csc[ \[Theta]], 2], 
                Derivative[ 0, 0, 0, 1][ 
                  X1[ 4]][ t, r, \[Theta], \[CurlyPhi]]]]]}, 0, 2, 1]}}],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("gUU computed in \
"\[InvisibleSpace]1.5500000000000114`\[InvisibleSpace]" sec"\),
      SequenceForm[ "gUU computed in ", 1.5500000000000114, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("Gamma computed in \
"\[InvisibleSpace]7.449999999999989`\[InvisibleSpace]" sec"\),
      SequenceForm[ "Gamma computed in ", 7.4499999999999886, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("Riemann(dddd) computed in \
"\[InvisibleSpace]7.766666666666708`\[InvisibleSpace]" sec"\),
      SequenceForm[ "Riemann(dddd) computed in ", 7.7666666666667084, " sec"],
      
      Editable->False]], "Print"],

Cell[BoxData[
    \("RUddd not computed"\)], "Output",
  FontSize->16,
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 1]],

Cell[BoxData[
    InterpretationBox[\("Ricci computed in \
"\[InvisibleSpace]0.283333333333303`\[InvisibleSpace]" sec"\),
      SequenceForm[ "Ricci computed in ", 0.28333333333330302, " sec"],
      Editable->False]], "Print"],

Cell[BoxData[
    \("Weyl tensor not computed"\)], "Output",
  FontSize->16,
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 1]],

Cell[BoxData[
    \("Ricci Flat to order 1"\)], "Output",
  FontSize->20,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 1]],

Cell[BoxData[
    \("All tasks completed in 22.3833 seconds"\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Rdd\)], "Input"],

Cell[BoxData[
    RowBox[{"{", 
      RowBox[{
        RowBox[{"{", 
          RowBox[{
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]]}], "}"}], ",", 
        RowBox[{"{", 
          RowBox[{
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]]}], "}"}], ",", 
        RowBox[{"{", 
          RowBox[{
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]]}], "}"}], ",", 
        RowBox[{"{", 
          RowBox[{
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]], ",", 
            InterpretationBox[\(O[lam]\^2\),
              SeriesData[ lam, 0, {}, 2, 2, 1]]}], "}"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[BoxData[
    \(\n\)], "Input"],

Cell[TextData[{
  "\t",
  StyleBox["Note",
    FontSize->16,
    FontSlant->"Italic"],
  StyleBox[": Double Series expansions are not supported by RGTC. Thus to \
look for solutions of the 1st order perturbation equations for which the \
hh[a,b] have series expansions in 1/r, one must substitute these series \
expansions in Normal[Rdd] rather than in Rdd itself.",
    FontSize->16]
}], "Text",
  FontColor->RGBColor[0, 0, 1]]
}, Open  ]]
},
FrontEndVersion->"4.0 for Macintosh",
ScreenRectangle->{{0, 1024}, {0, 748}},
CellGrouping->Manual,
WindowSize->{956, 721},
WindowMargins->{{24, Automatic}, {-62, Automatic}},
MacintoshSystemPageSetup->"\<\
0040001804P000000aP2I0000003609To`83609T0@00001804P000000aP2I001
0@00I00100000@0200000BL?00400000000000000000051`I6H0I00000000000
00000000000000000000000000000000\>"
]


(***********************************************************************
Cached data follows.  If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of 
the file.  The cache data will then be recreated when you save this file 
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 49, 1, 27, "Input"],

Cell[CellGroupData[{
Cell[1791, 54, 183, 6, 34, "Text"],
Cell[1977, 62, 76, 1, 27, "Input"],
Cell[2056, 65, 170, 4, 27, "Input"],
Cell[2229, 71, 59, 1, 27, "Input"],
Cell[2291, 74, 266, 10, 34, "Text"],

Cell[CellGroupData[{
Cell[2582, 88, 53, 1, 27, "Input"],
Cell[2638, 91, 961, 27, 95, "Print"],
Cell[3602, 120, 1071, 34, 39, "Print"],
Cell[4676, 156, 995, 28, 103, "Print"],
Cell[5674, 186, 226, 4, 22, "Print"],
Cell[5903, 192, 229, 4, 22, "Print"],
Cell[6135, 198, 253, 5, 22, "Print"],
Cell[6391, 205, 253, 5, 22, "Print"],
Cell[6647, 212, 196, 4, 22, "Print"],
Cell[6846, 218, 194, 4, 22, "Print"],
Cell[7043, 224, 116, 4, 34, "Output"],
Cell[7162, 230, 70, 1, 26, "Output"]
}, Open  ]],
Cell[7247, 234, 946, 35, 56, "Text"],

Cell[CellGroupData[{
Cell[8218, 273, 321, 6, 43, "Input"],
Cell[8542, 281, 13443, 300, 531, "Output"]
}, Open  ]],
Cell[22000, 584, 162, 5, 34, "Text"],
Cell[22165, 591, 150, 3, 27, "Input"],

Cell[CellGroupData[{
Cell[22340, 598, 124, 3, 27, "Input"],
Cell[22467, 603, 895, 16, 71, "Output"]
}, Open  ]],
Cell[23377, 622, 257, 10, 34, "Text"],

Cell[CellGroupData[{
Cell[23659, 636, 285, 8, 27, "Input"],
Cell[23947, 646, 6671, 160, 168, "Output"]
}, Open  ]],
Cell[30633, 809, 35, 1, 43, "Input"],
Cell[30671, 812, 180, 6, 34, "Text"],

Cell[CellGroupData[{
Cell[30876, 822, 63, 1, 27, "Input"],
Cell[30942, 825, 9564, 205, 95, "Print"],
Cell[40509, 1032, 6357, 168, 91, "Print"],
Cell[46869, 1202, 15986, 386, 123, "Print"],
Cell[62858, 1590, 225, 4, 22, "Print"],
Cell[63086, 1596, 225, 4, 22, "Print"],
Cell[63314, 1602, 250, 5, 22, "Print"],
Cell[63567, 1609, 125, 4, 30, "Output"],
Cell[63695, 1615, 226, 4, 22, "Print"],
Cell[63924, 1621, 131, 4, 30, "Output"],
Cell[64058, 1627, 232, 4, 22, "Print"],
Cell[64293, 1633, 74, 1, 26, "Output"]
}, Open  ]],
Cell[64382, 1637, 999, 39, 36, "Text"],

Cell[CellGroupData[{
Cell[65406, 1680, 205, 4, 43, "Input"],
Cell[65614, 1686, 69, 1, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[65720, 1692, 81, 1, 27, "Input"],
Cell[65804, 1695, 2114, 45, 45, "Output"]
}, Open  ]],
Cell[67933, 1743, 862, 34, 36, "Text"],
Cell[68798, 1779, 1013, 40, 36, "Text"],

Cell[CellGroupData[{
Cell[69836, 1823, 89, 1, 27, "Input"],
Cell[69928, 1826, 38507, 841, 502, "Print"],
Cell[108438, 2669, 25810, 565, 347, "Print"],
Cell[134251, 3236, 43970, 977, 630, "Print"],
Cell[178224, 4215, 223, 4, 22, "Print"],
Cell[178450, 4221, 226, 4, 22, "Print"],
Cell[178679, 4227, 249, 5, 22, "Print"],
Cell[178931, 4234, 125, 4, 30, "Output"],
Cell[179059, 4240, 227, 4, 22, "Print"],
Cell[179289, 4246, 131, 4, 30, "Output"],
Cell[179423, 4252, 127, 4, 34, "Output"],
Cell[179553, 4258, 74, 1, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[179664, 4264, 36, 1, 24, "Input"],
Cell[179703, 4267, 1860, 42, 45, "Output"]
}, Open  ]],
Cell[181578, 4312, 35, 1, 43, "Input"],
Cell[181616, 4315, 428, 11, 54, "Text"]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)