Object definitions
\left\{e_1\to \frac{16 m^2 d(u) (r(u,v)-2 m)}{(v-u) (u+v) r(u,v)}+\frac{16 m^2 d(v) (r(u,v)-2 m)}{(v-u) (u+v) r(u,v)},e_2\to \frac{d(u)}{2}-\frac{d(v)}{2},e_3\to -\frac{d(\Phi ) \sin (\Theta ) r(u,v)}{\sqrt{2}}-\frac{i d(\Theta ) r(u,v)}{\sqrt{2}},e_4\to -\frac{d(\Phi ) \sin (\Theta ) r(u,v)}{\sqrt{2}}+\frac{i d(\Theta ) r(u,v)}{\sqrt{2}}\right\}
<math>
<mrow>
<mo>{</mo>
<mrow>
<mrow>
<msub>
<mi>e</mi>
<mn>1</mn>
</msub>
<semantics>
<mo>→</mo>
<annotation encoding='Mathematica'>"\[Rule]"</annotation>
</semantics>
<mrow>
<mfrac>
<mrow>
<mn>16</mn>
<mo>⁢</mo>
<msup>
<mi>m</mi>
<mn>2</mn>
</msup>
<mo>⁢</mo>
<mrow>
<mi>d</mi>
<mo>⁡</mo>
<mo>(</mo>
<mi>u</mi>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mo>(</mo>
<mrow>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
<mo>-</mo>
<mrow>
<mn>2</mn>
<mo>⁢</mo>
<mi>m</mi>
</mrow>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
<mrow>
<mrow>
<mo>(</mo>
<mrow>
<mi>v</mi>
<mo>-</mo>
<mi>u</mi>
</mrow>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>+</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
</mfrac>
<mo>+</mo>
<mfrac>
<mrow>
<mn>16</mn>
<mo>⁢</mo>
<msup>
<mi>m</mi>
<mn>2</mn>
</msup>
<mo>⁢</mo>
<mrow>
<mi>d</mi>
<mo>⁡</mo>
<mo>(</mo>
<mi>v</mi>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mo>(</mo>
<mrow>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
<mo>-</mo>
<mrow>
<mn>2</mn>
<mo>⁢</mo>
<mi>m</mi>
</mrow>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
<mrow>
<mrow>
<mo>(</mo>
<mrow>
<mi>v</mi>
<mo>-</mo>
<mi>u</mi>
</mrow>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>+</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
</mfrac>
</mrow>
</mrow>
<mo>,</mo>
<mrow>
<msub>
<mi>e</mi>
<mn>2</mn>
</msub>
<semantics>
<mo>→</mo>
<annotation encoding='Mathematica'>"\[Rule]"</annotation>
</semantics>
<mrow>
<mfrac>
<mrow>
<mi>d</mi>
<mo>⁡</mo>
<mo>(</mo>
<mi>u</mi>
<mo>)</mo>
</mrow>
<mn>2</mn>
</mfrac>
<mo>-</mo>
<mfrac>
<mrow>
<mi>d</mi>
<mo>⁡</mo>
<mo>(</mo>
<mi>v</mi>
<mo>)</mo>
</mrow>
<mn>2</mn>
</mfrac>
</mrow>
</mrow>
<mo>,</mo>
<mrow>
<msub>
<mi>e</mi>
<mn>3</mn>
</msub>
<semantics>
<mo>→</mo>
<annotation encoding='Mathematica'>"\[Rule]"</annotation>
</semantics>
<mrow>
<mrow>
<mo>-</mo>
<mfrac>
<mrow>
<mrow>
<mi>d</mi>
<mo>⁡</mo>
<mo>(</mo>
<mi>Φ</mi>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mi>sin</mi>
<mo>⁡</mo>
<mo>(</mo>
<mi>Θ</mi>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
<msqrt>
<mn>2</mn>
</msqrt>
</mfrac>
</mrow>
<mo>-</mo>
<mrow>
<mfrac>
<mrow>
<mi>ⅈ</mi>
<mo>⁢</mo>
<mrow>
<mi>d</mi>
<mo>⁡</mo>
<mo>(</mo>
<mi>Θ</mi>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
<msqrt>
<mn>2</mn>
</msqrt>
</mfrac>
</mrow>
</mrow>
</mrow>
<mo>,</mo>
<mrow>
<msub>
<mi>e</mi>
<mn>4</mn>
</msub>
<semantics>
<mo>→</mo>
<annotation encoding='Mathematica'>"\[Rule]"</annotation>
</semantics>
<mrow>
<mrow>
<mo>-</mo>
<mfrac>
<mrow>
<mrow>
<mi>d</mi>
<mo>⁡</mo>
<mo>(</mo>
<mi>Φ</mi>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mi>sin</mi>
<mo>⁡</mo>
<mo>(</mo>
<mi>Θ</mi>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
<msqrt>
<mn>2</mn>
</msqrt>
</mfrac>
</mrow>
<mo>+</mo>
<mfrac>
<mrow>
<mi>ⅈ</mi>
<mo>⁢</mo>
<mrow>
<mi>d</mi>
<mo>⁡</mo>
<mo>(</mo>
<mi>Θ</mi>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
<msqrt>
<mn>2</mn>
</msqrt>
</mfrac>
</mrow>
</mrow>
</mrow>
<mo>}</mo>
</mrow>
</math>
{Subscript[e, 1] -> (16*m^2*d[u]*(-2*m + r[u, v]))/((-u + v)*(u + v)*r[u, v]) + (16*m^2*d[v]*(-2*m + r[u, v]))/((-u + v)*(u + v)*r[u, v]), Subscript[e, 2] -> d[u]/2 - d[v]/2, Subscript[e, 3] -> ((-I)*d[\[CapitalTheta]]*r[u, v])/Sqrt[2] - (d[\[CapitalPhi]]*r[u, v]*Sin[\[CapitalTheta]])/Sqrt[2], Subscript[e, 4] -> (I*d[\[CapitalTheta]]*r[u, v])/Sqrt[2] - (d[\[CapitalPhi]]*r[u, v]*Sin[\[CapitalTheta]])/Sqrt[2]}
[e[1] = 16*m^2/(-u+v)/(u+v)*d(u)/r(u,v)*(-2*m+r(u,v))+16*m^2/(-u+v)/(u+v)*d(v)/r(u,v)*(-2*m+r(u,v)), e[2] = 1/2*d(u)-1/2*d(v), e[3] = -1/2*I*2^(1/2)*d(Theta)*r(u,v)-1/2*2^(1/2)*d(Phi)*r(u,v)*sin(Theta), e[4] = 1/2*I*2^(1/2)*d(Theta)*r(u,v)-1/2*2^(1/2)*d(Phi)*r(u,v)*sin(Theta)]
\left\{\frac{\partial r(u,v)}{\partial u}\to \frac{4 m u (2 m-r(u,v))}{\left(v^2-u^2\right) r(u,v)},\frac{\partial r(u,v)}{\partial v}\to -\frac{4 m v (2 m-r(u,v))}{\left(v^2-u^2\right) r(u,v)}\right\}
<math>
<mrow>
<mo>{</mo>
<mrow>
<mrow>
<semantics>
<mfrac>
<mrow>
<mo>∂</mo>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
<mrow>
<mo>∂</mo>
<mi>u</mi>
</mrow>
</mfrac>
<annotation encoding='Mathematica'>TagBox[FractionBox[RowBox[List["\[PartialD]", RowBox[List["r", "(", RowBox[List["u", ",", "v"]], ")"]]]], RowBox[List["\[PartialD]", "u"]], Rule[MultilineFunction, None]], HoldForm]</annotation>
</semantics>
<semantics>
<mo>→</mo>
<annotation encoding='Mathematica'>"\[Rule]"</annotation>
</semantics>
<mfrac>
<mrow>
<mn>4</mn>
<mo>⁢</mo>
<mi>m</mi>
<mo>⁢</mo>
<mi>u</mi>
<mo>⁢</mo>
<mrow>
<mo>(</mo>
<mrow>
<mrow>
<mn>2</mn>
<mo>⁢</mo>
<mi>m</mi>
</mrow>
<mo>-</mo>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
<mrow>
<mrow>
<mo>(</mo>
<mrow>
<msup>
<mi>v</mi>
<mn>2</mn>
</msup>
<mo>-</mo>
<msup>
<mi>u</mi>
<mn>2</mn>
</msup>
</mrow>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
</mfrac>
</mrow>
<mo>,</mo>
<mrow>
<semantics>
<mfrac>
<mrow>
<mo>∂</mo>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
<mrow>
<mo>∂</mo>
<mi>v</mi>
</mrow>
</mfrac>
<annotation encoding='Mathematica'>TagBox[FractionBox[RowBox[List["\[PartialD]", RowBox[List["r", "(", RowBox[List["u", ",", "v"]], ")"]]]], RowBox[List["\[PartialD]", "v"]], Rule[MultilineFunction, None]], HoldForm]</annotation>
</semantics>
<semantics>
<mo>→</mo>
<annotation encoding='Mathematica'>"\[Rule]"</annotation>
</semantics>
<mrow>
<mo>-</mo>
<mfrac>
<mrow>
<mn>4</mn>
<mo>⁢</mo>
<mi>m</mi>
<mo>⁢</mo>
<mi>v</mi>
<mo>⁢</mo>
<mrow>
<mo>(</mo>
<mrow>
<mrow>
<mn>2</mn>
<mo>⁢</mo>
<mi>m</mi>
</mrow>
<mo>-</mo>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
<mrow>
<mrow>
<mo>(</mo>
<mrow>
<msup>
<mi>v</mi>
<mn>2</mn>
</msup>
<mo>-</mo>
<msup>
<mi>u</mi>
<mn>2</mn>
</msup>
</mrow>
<mo>)</mo>
</mrow>
<mo>⁢</mo>
<mrow>
<mi>r</mi>
<mo>⁡</mo>
<mo>(</mo>
<mrow>
<mi>u</mi>
<mo>,</mo>
<mi>v</mi>
</mrow>
<mo>)</mo>
</mrow>
</mrow>
</mfrac>
</mrow>
</mrow>
</mrow>
<mo>}</mo>
</mrow>
</math>
{Derivative[1, 0][r][u, v] -> (4*m*u*(2*m - r[u, v]))/((-u^2 + v^2)*r[u, v]), Derivative[0, 1][r][u, v] -> (-4*m*v*(2*m - r[u, v]))/((-u^2 + v^2)*r[u, v])}
[diff(r(u,v),u) = 4*m*u/(-u^2+v^2)*(2*m-r(u,v))/r(u,v), diff(r(u,v),v) = -4*m*v/(-u^2+v^2)*(2*m-r(u,v))/r(u,v)]