(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     62180,       1813]
NotebookOptionsPosition[     58572,       1715]
NotebookOutlinePosition[     58916,       1730]
CellTagsIndexPosition[     58873,       1727]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Schwarschild", " ", "metric", " ", "calculation"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Define", " ", "coordinates", " ", "and", " ", "metric"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"coords", "=", 
     RowBox[{"{", 
      RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"n", "=", 
     RowBox[{"Length", "[", "coords", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"metric", "=", 
     RowBox[{"DiagonalMatrix", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", 
            RowBox[{"m", "/", "r"}]}]}], ")"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", 
            RowBox[{"m", "/", "r"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}]}], ",", 
        RowBox[{"r", "^", "2"}], ",", 
        RowBox[{
         RowBox[{"r", "^", "2"}], " ", 
         RowBox[{
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}]}], "}"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Imetric", "=", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Inverse", "[", "metric", "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Calculate", " ", "Christoffel", " ", "symbols", " ", "in", " ", "the", 
     " ", "coordinates", " ", "basis", " ", "according", " ", "to", " ", 
     RowBox[{"(", 
      RowBox[{"3.1", ".30"}], ")"}], " ", "in", " ", "Wald"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Chri", "=", 
     RowBox[{"Array", "[", 
      RowBox[{
       RowBox[{"0", "&"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "n", ",", "n"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"c", "=", "1"}], ",", 
      RowBox[{"c", "\[LessEqual]", " ", "n"}], ",", 
      RowBox[{"c", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"a", "=", "1"}], ",", 
        RowBox[{"a", "\[LessEqual]", " ", "n"}], ",", 
        RowBox[{"a", "++"}], ",", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"b", "=", "1"}], ",", 
          RowBox[{"b", "\[LessEqual]", " ", "n"}], ",", " ", 
          RowBox[{"b", "++"}], ",", 
          RowBox[{
           RowBox[{"Chri", "[", 
            RowBox[{"[", 
             RowBox[{"c", ",", "a", ",", "b"}], "]"}], "]"}], "=", " ", 
           RowBox[{"Simplify", "[", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"1", "/", "2"}], " ", 
               RowBox[{"Imetric", "[", 
                RowBox[{"[", 
                 RowBox[{"c", ",", "d"}], "]"}], "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"D", "[", 
                  RowBox[{
                   RowBox[{"metric", "[", 
                    RowBox[{"[", 
                    RowBox[{"b", ",", "d"}], "]"}], "]"}], ",", 
                   RowBox[{"coords", "[", 
                    RowBox[{"[", "a", "]"}], "]"}]}], "]"}], "+", 
                 RowBox[{"D", "[", 
                  RowBox[{
                   RowBox[{"metric", "[", 
                    RowBox[{"[", 
                    RowBox[{"a", ",", "d"}], "]"}], "]"}], ",", 
                   RowBox[{"coords", "[", 
                    RowBox[{"[", "b", "]"}], "]"}]}], "]"}], "-", 
                 RowBox[{"D", "[", 
                  RowBox[{
                   RowBox[{"metric", "[", 
                    RowBox[{"[", 
                    RowBox[{"a", ",", "b"}], "]"}], "]"}], ",", 
                   RowBox[{"coords", "[", 
                    RowBox[{"[", "d", "]"}], "]"}]}], "]"}]}], ")"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"d", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], 
         "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Calculate", " ", "Riemann", " ", "tensor", " ", "as", " ", "defined", 
     " ", "in", " ", 
     RowBox[{"(", 
      RowBox[{"3.4", ".4"}], ")"}], " ", "of", " ", "Wald"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Riem", "=", 
     RowBox[{"Array", "[", 
      RowBox[{
       RowBox[{"0", "&"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "n", ",", "n", ",", "n"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"\[Mu]", "=", "1"}], ",", 
      RowBox[{"\[Mu]", "\[LessEqual]", " ", "n"}], ",", 
      RowBox[{"\[Mu]", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"\[Nu]", "=", "1"}], ",", 
        RowBox[{"\[Nu]", "\[LessEqual]", " ", "n"}], ",", 
        RowBox[{"\[Nu]", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"\[Rho]", "=", "1"}], ",", 
          RowBox[{"\[Rho]", "\[LessEqual]", " ", "n"}], ",", " ", 
          RowBox[{"\[Rho]", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"\[Sigma]", "=", "1"}], ",", 
            RowBox[{"\[Sigma]", "\[LessEqual]", " ", "n"}], ",", " ", 
            RowBox[{"\[Sigma]", "++"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Riem", "[", 
              RowBox[{"[", 
               RowBox[{
               "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}],
               "]"}], "=", 
             RowBox[{"Simplify", "[", 
              RowBox[{
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"Chri", "[", 
                  RowBox[{"[", 
                   RowBox[{"\[Sigma]", ",", "\[Mu]", ",", "\[Rho]"}], "]"}], 
                  "]"}], ",", 
                 RowBox[{"coords", "[", 
                  RowBox[{"[", "\[Nu]", "]"}], "]"}]}], "]"}], "-", 
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"Chri", "[", 
                  RowBox[{"[", 
                   RowBox[{"\[Sigma]", ",", "\[Nu]", ",", "\[Rho]"}], "]"}], 
                  "]"}], ",", 
                 RowBox[{"coords", "[", 
                  RowBox[{"[", "\[Mu]", "]"}], "]"}]}], "]"}], "+", 
               RowBox[{"Sum", "[", " ", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"Chri", "[", 
                    RowBox[{"[", 
                    RowBox[{"\[Alpha]", ",", "\[Mu]", " ", ",", "\[Rho]"}], 
                    "]"}], "]"}], " ", 
                   RowBox[{"Chri", "[", 
                    RowBox[{"[", 
                    RowBox[{"\[Sigma]", ",", "\[Alpha]", ",", "\[Nu]"}], 
                    "]"}], "]"}]}], "-", 
                  RowBox[{
                   RowBox[{"Chri", "[", 
                    RowBox[{"[", 
                    RowBox[{"\[Alpha]", ",", "\[Nu]", ",", "\[Rho]"}], "]"}], 
                    "]"}], " ", 
                   RowBox[{"Chri", "[", 
                    RowBox[{"[", 
                    RowBox[{"\[Sigma]", ",", "\[Alpha]", ",", "\[Mu]"}], 
                    "]"}], "]"}]}]}], ",", 
                 RowBox[{"{", 
                  RowBox[{"\[Alpha]", ",", "1", ",", "n"}], "}"}]}], "]"}]}], 
              "]"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Calculate", " ", "Ricci", " ", "and", " ", "scalar", " ", "curvature", 
     " ", "according", " ", "to", " ", 
     RowBox[{"(", 
      RowBox[{"3.2", ".25"}], ")"}], " ", "and", " ", 
     RowBox[{"(", 
      RowBox[{"3.2", ".27"}], ")"}], " ", "of", " ", "Wald"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Ric", "=", 
     RowBox[{"Array", "[", 
      RowBox[{
       RowBox[{"0", "&"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"a", "=", "1"}], ",", 
      RowBox[{"a", "\[LessEqual]", " ", "n"}], ",", 
      RowBox[{"a", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"b", "=", "1"}], ",", 
        RowBox[{"b", "\[LessEqual]", " ", "n"}], ",", " ", 
        RowBox[{"b", "++"}], ",", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Ric", "[", 
          RowBox[{"[", 
           RowBox[{"a", ",", "b"}], "]"}], "]"}], "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"Riem", "[", 
             RowBox[{"[", 
              RowBox[{"a", ",", "c", ",", "b", ",", "c"}], "]"}], "]"}], ",", 
            
            RowBox[{"{", 
             RowBox[{"c", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], 
       "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"R", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"R", "=", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Imetric", "[", 
          RowBox[{"[", 
           RowBox[{"a", ",", "b"}], "]"}], "]"}], " ", 
         RowBox[{"Ric", "[", 
          RowBox[{"[", 
           RowBox[{"a", ",", "b"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", "1", ",", "n"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"b", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Begin", " ", "Output"}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"a", "=", "1"}], ",", 
     RowBox[{"a", "<=", " ", "n"}], ",", 
     RowBox[{"a", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"b", "=", "1"}], ",", 
       RowBox[{"b", "<=", " ", "n"}], ",", 
       RowBox[{"b", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"c", "=", "1"}], ",", 
         RowBox[{"c", "<=", " ", "n"}], ",", " ", 
         RowBox[{"c", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{
           SubscriptBox[
            SuperscriptBox["\"\<\[CapitalGamma]\>\"", 
             RowBox[{"coords", "[", 
              RowBox[{"[", "a", "]"}], "]"}]], 
            RowBox[{
             RowBox[{"coords", "[", 
              RowBox[{"[", "b", "]"}], "]"}], " ", ",", 
             RowBox[{"coords", "[", 
              RowBox[{"[", "c", "]"}], "]"}]}]], ",", " ", "\"\<=\>\"", ",", 
           " ", 
           RowBox[{"Chri", "[", 
            RowBox[{"[", 
             RowBox[{"a", ",", "b", ",", "c"}], "]"}], "]"}]}], "]"}]}], " ", 
        "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]",
    
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"a", "=", "1"}], ",", 
     RowBox[{"a", "<=", " ", "n"}], ",", 
     RowBox[{"a", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"b", "=", "1"}], ",", 
       RowBox[{"b", "<=", " ", "n"}], ",", 
       RowBox[{"b", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
         SubscriptBox["\"\<R\>\"", 
          RowBox[{
           RowBox[{"coords", "[", 
            RowBox[{"[", "a", "]"}], "]"}], " ", ",", "  ", 
           RowBox[{"coords", "[", 
            RowBox[{"[", "b", "]"}], "]"}]}]], ",", " ", "\"\<=\>\"", ",", 
         " ", 
         RowBox[{"Ric", "[", 
          RowBox[{"[", 
           RowBox[{"a", ",", "b"}], "]"}], "]"}]}], "]"}]}], " ", "]"}]}], 
    "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<R\>\"", ",", "\"\<=\>\"", ",", " ", "R"}], " ", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.3948670990625*^9, 3.39486724921875*^9}, {
  3.394867329109375*^9, 3.394867380234375*^9}, {3.394867413171875*^9, 
  3.39486752134375*^9}, {3.39486762609375*^9, 3.3948676641875*^9}, {
  3.394867941390625*^9, 3.394867949328125*^9}, {3.39486811878125*^9, 
  3.394868162953125*^9}, {3.394868213734375*^9, 3.394868305*^9}, {
  3.39486834765625*^9, 3.39486836625*^9}, {3.39487075446875*^9, 
  3.3948708194375*^9}, {3.39487139978125*^9, 3.394871400578125*^9}, {
  3.394871541984375*^9, 3.394871573484375*^9}, {3.394871688328125*^9, 
  3.394871783921875*^9}, {3.39487185334375*^9, 3.394872140078125*^9}, {
  3.39487243215625*^9, 3.3948724974375*^9}, {3.39487255875*^9, 
  3.3948725756875*^9}, {3.394872632609375*^9, 3.39487263984375*^9}, {
  3.394873406109375*^9, 3.394873445375*^9}, {3.39487502503125*^9, 
  3.394875043078125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"t", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`t, $CellContext`t], "=", 0],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044203125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"t", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["m", 
     RowBox[{
      RowBox[{"2", " ", "m", " ", "r"}], "-", 
      SuperscriptBox["r", "2"]}]]}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`t, $CellContext`r], 
   "=", -$CellContext`m/(2 $CellContext`m $CellContext`r - $CellContext`r^2)],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044203125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"t", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`t, $CellContext`\[Theta]], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044234375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"t", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`t, $CellContext`\[Phi]], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044234375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"r", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox["m", 
     RowBox[{
      RowBox[{"2", " ", "m", " ", "r"}], "-", 
      SuperscriptBox["r", "2"]}]]}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`r, $CellContext`t], 
   "=", -$CellContext`m/(2 $CellContext`m $CellContext`r - $CellContext`r^2)],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504425*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"r", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`r, $CellContext`r], "=", 0],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504425*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"r", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`r, $CellContext`\[Theta]], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044265625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"r", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`r, $CellContext`\[Phi]], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044265625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"\[Theta]", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`\[Theta], $CellContext`t], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504428125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"\[Theta]", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`\[Theta], $CellContext`r], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504428125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"\[Theta]", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`\[Theta], $CellContext`\
\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504428125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"\[Theta]", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`\[Theta], $CellContext`\
\[Phi]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044296875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"\[Phi]", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`\[Phi], $CellContext`t], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044296875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"\[Phi]", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`\[Phi], $CellContext`r], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750443125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"\[Phi]", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`\[Phi], $CellContext`\
\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750443125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "t"], ")"}], 
    RowBox[{"\[Phi]", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`t, $CellContext`\[Phi], \
$CellContext`\[Phi]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750443125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"t", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"m", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "m"}], "+", "r"}], ")"}]}], 
    SuperscriptBox["r", "3"]]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`t, $CellContext`t], 
   "=", $CellContext`m $CellContext`r^(-3) ((-2) $CellContext`m + \
$CellContext`r)],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044328125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"t", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`t, $CellContext`r], "=", 0],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044328125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"t", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`t, $CellContext`\[Theta]], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504434375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"t", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`t, $CellContext`\[Phi]], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504434375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"r", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`r, $CellContext`t], "=", 0],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044359375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"r", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   FractionBox["m", 
    RowBox[{
     RowBox[{"2", " ", "m", " ", "r"}], "-", 
     SuperscriptBox["r", "2"]}]]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`r, $CellContext`r], 
   "=", $CellContext`m/(2 $CellContext`m $CellContext`r - $CellContext`r^2)],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044359375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"r", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`r, $CellContext`\[Theta]], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"r", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`r, $CellContext`\[Phi]], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"\[Theta]", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`\[Theta], $CellContext`t], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044390625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"\[Theta]", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`\[Theta], $CellContext`r], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044390625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"\[Theta]", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"2", " ", "m"}], "-", "r"}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`\[Theta], $CellContext`\
\[Theta]], "=", 2 $CellContext`m - $CellContext`r],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504440625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"\[Theta]", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`\[Theta], $CellContext`\
\[Phi]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044421875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"\[Phi]", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`\[Phi], $CellContext`t], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044421875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"\[Phi]", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`\[Phi], $CellContext`r], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750444375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"\[Phi]", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`\[Phi], $CellContext`\
\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750444375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "r"], ")"}], 
    RowBox[{"\[Phi]", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", "m"}], "-", "r"}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`r, $CellContext`\[Phi], \
$CellContext`\[Phi]], "=", (2 $CellContext`m - $CellContext`r) 
   Sin[$CellContext`\[Theta]]^2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044453125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"t", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`t, $CellContext`t], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044453125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"t", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`t, $CellContext`r], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044453125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"t", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`t, $CellContext`\
\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504446875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"t", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`t, $CellContext`\
\[Phi]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504446875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"r", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`r, $CellContext`t], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044484375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"r", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`r, $CellContext`r], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044484375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"r", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   FractionBox["1", "r"]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`r, $CellContext`\
\[Theta]], "=", $CellContext`r^(-1)],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044484375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"r", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`r, $CellContext`\
\[Phi]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750445*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"\[Theta]", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`\[Theta], \
$CellContext`t], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750445*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"\[Theta]", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   FractionBox["1", "r"]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`\[Theta], \
$CellContext`r], "=", $CellContext`r^(-1)],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044515625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"\[Theta]", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`\[Theta], \
$CellContext`\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044515625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"\[Theta]", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`\[Theta], \
$CellContext`\[Phi]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504453125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"\[Phi]", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`\[Phi], \
$CellContext`t], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504453125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"\[Phi]", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`\[Phi], \
$CellContext`r], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504453125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"\[Phi]", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`\[Phi], \
$CellContext`\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044546875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Theta]"], ")"}], 
    RowBox[{"\[Phi]", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Theta], $CellContext`\[Phi], \
$CellContext`\[Phi]], "=", -Cos[$CellContext`\[Theta]] 
   Sin[$CellContext`\[Theta]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044546875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"t", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`t, $CellContext`t], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750445625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"t", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`t, $CellContext`r], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750445625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"t", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`t, $CellContext`\
\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750445625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"t", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`t, \
$CellContext`\[Phi]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044578125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"r", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`r, $CellContext`t], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044578125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"r", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`r, $CellContext`r], 
   "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504459375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"r", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`r, $CellContext`\
\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504459375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"r", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   FractionBox["1", "r"]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`r, \
$CellContext`\[Phi]], "=", $CellContext`r^(-1)],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504459375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"\[Theta]", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`\[Theta], \
$CellContext`t], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044609375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"\[Theta]", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`\[Theta], \
$CellContext`r], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044609375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"\[Theta]", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`\[Theta], \
$CellContext`\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"\[Theta]", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"Cot", "[", "\[Theta]", "]"}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`\[Theta], \
$CellContext`\[Phi]], "=", 
   Cot[$CellContext`\[Theta]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"\[Phi]", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`\[Phi], \
$CellContext`t], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"\[Phi]", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   FractionBox["1", "r"]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`\[Phi], \
$CellContext`r], "=", $CellContext`r^(-1)],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044640625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"\[Phi]", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"Cot", "[", "\[Theta]", "]"}]}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`\[Phi], $CellContext`\
\[Theta]], "=", 
   Cot[$CellContext`\[Theta]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044640625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\<\"\[CapitalGamma]\"\>", "\[Phi]"], ")"}], 
    RowBox[{"\[Phi]", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript[
   "\[CapitalGamma]"^$CellContext`\[Phi], $CellContext`\[Phi], $CellContext`\
\[Phi]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504465625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"t", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`t, $CellContext`t], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504465625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"t", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`t, $CellContext`r], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504465625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"t", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`t, $CellContext`\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044671875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"t", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`t, $CellContext`\[Phi]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044671875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"r", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`r, $CellContext`t], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750446875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"r", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`r, $CellContext`r], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750446875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"r", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`r, $CellContext`\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.3948750446875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"r", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`r, $CellContext`\[Phi]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044703125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"\[Theta]", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`\[Theta], $CellContext`t], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044703125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"\[Theta]", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`\[Theta], $CellContext`r], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504471875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"\[Theta]", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`\[Theta], $CellContext`\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504471875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"\[Theta]", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`\[Theta], $CellContext`\[Phi]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504471875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"\[Phi]", ",", "t"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`\[Phi], $CellContext`t], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044734375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"\[Phi]", ",", "r"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`\[Phi], $CellContext`r], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.394875044734375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"\[Phi]", ",", "\[Theta]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`\[Phi], $CellContext`\[Theta]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504475*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   SubscriptBox["\<\"R\"\>", 
    RowBox[{"\[Phi]", ",", "\[Phi]"}]], "\[InvisibleSpace]", "\<\"=\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[
   Subscript["R", $CellContext`\[Phi], $CellContext`\[Phi]], "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504475*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"R\"\>", "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", 
   "0"}],
  SequenceForm["R", "=", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.394872141296875*^9, 3.39487250015625*^9, {3.394872561421875*^9, 
   3.394872579734375*^9}, 3.394872640734375*^9, 3.39487504475*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{698, 740},
WindowMargins->{{Automatic, 534}, {165, Automatic}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 27, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 13063, 334, 1061, "Input"],
Cell[CellGroupData[{
Cell[13678, 361, 538, 15, 28, "Print"],
Cell[14219, 378, 742, 21, 38, "Print"],
Cell[14964, 401, 553, 15, 28, "Print"],
Cell[15520, 418, 549, 15, 28, "Print"],
Cell[16072, 435, 738, 21, 38, "Print"],
Cell[16813, 458, 534, 15, 28, "Print"],
Cell[17350, 475, 553, 15, 28, "Print"],
Cell[17906, 492, 549, 15, 28, "Print"],
Cell[18458, 509, 552, 15, 28, "Print"],
Cell[19013, 526, 552, 15, 28, "Print"],
Cell[19568, 543, 564, 15, 28, "Print"],
Cell[20135, 560, 561, 15, 28, "Print"],
Cell[20699, 577, 549, 15, 28, "Print"],
Cell[21251, 594, 547, 15, 28, "Print"],
Cell[21801, 611, 559, 15, 28, "Print"],
Cell[22363, 628, 555, 15, 28, "Print"],
Cell[22921, 645, 791, 23, 39, "Print"],
Cell[23715, 670, 538, 15, 25, "Print"],
Cell[24256, 687, 552, 15, 25, "Print"],
Cell[24811, 704, 548, 15, 25, "Print"],
Cell[25362, 721, 538, 15, 25, "Print"],
Cell[25903, 738, 715, 19, 38, "Print"],
Cell[26621, 759, 550, 15, 25, "Print"],
Cell[27174, 776, 546, 15, 25, "Print"],
Cell[27723, 793, 553, 15, 25, "Print"],
Cell[28279, 810, 553, 15, 25, "Print"],
Cell[28835, 827, 645, 17, 25, "Print"],
Cell[29483, 846, 561, 15, 25, "Print"],
Cell[30047, 863, 549, 15, 25, "Print"],
Cell[30599, 880, 547, 15, 25, "Print"],
Cell[31149, 897, 559, 15, 25, "Print"],
Cell[31711, 914, 792, 22, 25, "Print"],
Cell[32506, 938, 553, 15, 28, "Print"],
Cell[33062, 955, 553, 15, 28, "Print"],
Cell[33618, 972, 564, 15, 28, "Print"],
Cell[34185, 989, 560, 15, 28, "Print"],
Cell[34748, 1006, 553, 15, 28, "Print"],
Cell[35304, 1023, 553, 15, 28, "Print"],
Cell[35860, 1040, 605, 16, 38, "Print"],
Cell[36468, 1058, 556, 15, 28, "Print"],
Cell[37027, 1075, 560, 15, 28, "Print"],
Cell[37590, 1092, 605, 16, 38, "Print"],
Cell[38198, 1110, 579, 15, 28, "Print"],
Cell[38780, 1127, 574, 15, 28, "Print"],
Cell[39357, 1144, 560, 15, 28, "Print"],
Cell[39920, 1161, 560, 15, 28, "Print"],
Cell[40483, 1178, 575, 15, 28, "Print"],
Cell[41061, 1195, 751, 20, 28, "Print"],
Cell[41815, 1217, 547, 15, 28, "Print"],
Cell[42365, 1234, 547, 15, 28, "Print"],
Cell[42915, 1251, 559, 15, 28, "Print"],
Cell[43477, 1268, 557, 15, 28, "Print"],
Cell[44037, 1285, 549, 15, 28, "Print"],
Cell[44589, 1302, 548, 15, 28, "Print"],
Cell[45140, 1319, 560, 15, 28, "Print"],
Cell[45703, 1336, 596, 16, 38, "Print"],
Cell[46302, 1354, 561, 15, 28, "Print"],
Cell[46866, 1371, 561, 15, 28, "Print"],
Cell[47430, 1388, 572, 15, 28, "Print"],
Cell[48005, 1405, 635, 17, 28, "Print"],
Cell[48643, 1424, 554, 15, 28, "Print"],
Cell[49200, 1441, 597, 16, 38, "Print"],
Cell[49800, 1459, 638, 17, 28, "Print"],
Cell[50441, 1478, 566, 15, 28, "Print"],
Cell[51010, 1495, 435, 11, 23, "Print"],
Cell[51448, 1508, 435, 11, 23, "Print"],
Cell[51886, 1521, 450, 11, 23, "Print"],
Cell[52339, 1534, 446, 11, 23, "Print"],
Cell[52788, 1547, 434, 11, 23, "Print"],
Cell[53225, 1560, 434, 11, 23, "Print"],
Cell[53662, 1573, 448, 11, 23, "Print"],
Cell[54113, 1586, 446, 11, 23, "Print"],
Cell[54562, 1599, 450, 11, 23, "Print"],
Cell[55015, 1612, 449, 11, 23, "Print"],
Cell[55467, 1625, 463, 11, 23, "Print"],
Cell[55933, 1638, 459, 11, 23, "Print"],
Cell[56395, 1651, 446, 11, 23, "Print"],
Cell[56844, 1664, 446, 11, 23, "Print"],
Cell[57293, 1677, 456, 11, 23, "Print"],
Cell[57752, 1690, 452, 11, 23, "Print"],
Cell[58207, 1703, 337, 8, 23, "Print"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)