Editing 2DStructure/ToroidalGreenFunction (section)

===As presented by Wong (1973)===
Referencing [<b>[[User:Tohline/Appendix/References#MF53|<font color="red">MF53</font>]]</b>], [http://adsabs.harvard.edu/abs/1973AnPhy..77..279W Wong (1973)] states that, in toroidal coordinates, the Green's function is,
<div align="center">
<table border="0" cellpadding="5" align="center">

<tr>
  <td align="right">
<math>~\frac{1}{|~\vec{x} - {\vec{x}}^{~'} ~|} </math>
  </td>
  <td align="center">
<math>~=</math>
  </td>
  <td align="left">
<math>~
\frac{1}{\pi a} \biggl[ (\cosh\eta - \cos\theta)(\cosh \eta^' - \cos\theta^') \biggr]^{1 /2 }
\sum\limits^\infty_{m,n=0} (-1)^m \epsilon_m \epsilon_n ~\frac{\Gamma(n-m+\tfrac{1}{2})}{\Gamma(n + m + \tfrac{1}{2})}
</math>
  </td>
</tr>

<tr>
  <td align="right">
&nbsp;
  </td>
  <td align="center">
&nbsp;
  </td>
  <td align="left">
<math>~
\times \cos[m(\psi - \psi^')]\cos[n(\theta - \theta^')] ~\begin{cases}P^m_{n-1 / 2}(\cosh\eta) ~Q^m_{n-1 / 2}(\cosh\eta^') ~~~\eta^' > \eta \\P^m_{n-1 / 2}(\cosh\eta^') ~Q^m_{n-1 / 2}(\cosh\eta)~~~\eta^' < \eta
\end{cases}\, ,
</math>
  </td>
</tr>
<tr>
  <td align="center" colspan="3">
[http://adsabs.harvard.edu/abs/1973AnPhy..77..279W Wong (1973)], p. 293, Eq. (2.53)<br />
[see also: [http://adsabs.harvard.edu/abs/1997JMP....38.3679B J. W. Bates (1997)], p. 3685, Eq. (31)]<br />
[see also: [http://adsabs.harvard.edu/abs/2000AN....321..363C Cohl, Tohline, Rau, &amp; Srivastava (2000)], &sect;6.2, Eq. (48)]
  </td>
</tr>
</table>
</div>
where, <math>~P^m_{n-1 / 2}, Q^m_{n-1 / 2}</math> are ''Associated Legendre Functions'' of the first and second kind with degree <math>~n - \tfrac{1}{2}</math> and order <math>~m</math> (toroidal harmonics), and <math>~\epsilon_m</math> is the Neumann factor, that is, <math>~\epsilon_0 = 1</math> and <math>~\epsilon_m = 2</math> for all <math>~m \ge 1</math>.  This Green's function expression can indeed be found as eq. (10.3.81) on p. 1304 of [<b>[[User:Tohline/Appendix/References#MF53|<font color="red">MF53</font>]]</b>], but it should be noted that the MF53 expression differs from Wong's in two respects (see footnote 2 on p. 370 of [http://adsabs.harvard.edu/abs/2000AN....321..363C Cohl et al. (2000)] for a proposed explanation):  First, the factor, <math>~(-1)^m</math>, appears as <math>~(-i)^m</math> in MF53; and, second, in the term that is composed of a ratio of gamma functions, the denominator appears in MF53 as <math>~\Gamma(n - m + \tfrac{1}{2})</math>, whereas it should be <math>~\Gamma(n + m + \tfrac{1}{2})</math>, as presented here.
<!--
For later reference, note that after drawing from, for example, [https://en.wikipedia.org/wiki/Gamma_function#General Wikipedia's account of the general properties of gamma functions],  the collection of factors immediately inside the double summation may be more explicitly written as,
<table border="0" cellpadding="5" align="center">

<tr>
  <td align="right">
<math>~L_n^m \equiv (-1)^m \epsilon_m \epsilon_n ~\frac{\Gamma(n-m+\tfrac{1}{2})}{\Gamma(n + m + \tfrac{1}{2})}
</math>
  </td>
  <td align="center">
<math>~=</math>
  </td>
  <td align="left">
<math>~
(-1)^m \epsilon_m \epsilon_n \biggl[ \frac{\sqrt{\pi}[2(n-m)]!}{4^{n-m}(n-m)!} \biggr]
\biggl[ \frac{4^{n+m}(n+m)!}{\sqrt{\pi}[2(n+m)]!} \biggr]
</math>
  </td>
</tr>

<tr>
  <td align="right">
&nbsp;
  </td>
  <td align="center">
<math>~=</math>
  </td>
  <td align="left">
<math>~
(-1)^m \epsilon_m \epsilon_n \biggl[ \frac{[2(n-m)]!}{(n-m)!} \biggr]
\biggl[ \frac{(n+m)!}{[2(n+m)]!} \biggr]2^{4m}
</math>
  </td>
</tr>

<tr>
  <td align="right">
&nbsp;
  </td>
  <td align="center">
<math>~=</math>
  </td>
  <td align="left">
<math>~
(-1)^m \epsilon_m \epsilon_n \biggl[ \frac{\cdots [2(n-m)-4]\cdot [2(n-m)-3]\cdot[2(n-m)-2]\cdot[2(n-m)-1]\cdot[2(n-m)] }{\cdots [(n-m)-4]\cdot [(n-m)-3]\cdot [(n-m)-2]\cdot [(n-m)-1]\cdot (n-m) } \biggr]
</math>
  </td>
</tr>

<tr>
  <td align="right">
&nbsp;
  </td>
  <td align="center">
&nbsp;
  </td>
  <td align="left">
<math>~\times
\biggl[ \frac{\cdots [(n+m)-4]\cdot [(n+m)-3]\cdot [(n+m)-2]\cdot [(n+m)-1]\cdot (n+m) }{\cdots [2(n+m)-4]\cdot [2(n+m)-3]\cdot [2(n+m)-2]\cdot [2(n+m)-1]\cdot [2(n+m)] } \biggr]2^{4m}
</math>
  </td>
</tr>

<tr>
  <td align="right">
&nbsp;
  </td>
  <td align="center">
<math>~=</math>
  </td>
  <td align="left">
<math>~
(-1)^m \epsilon_m \epsilon_n \biggl[ \frac{\cdots 2[(n-m)-2]\cdot [2(n-m)-3]\cdot 2[(n-m)-1]\cdot [2(n-m)-1] \cdot 2(n-m) }{\cdots [(n-m)-4]\cdot [(n-m)-3]\cdot [(n-m)-2]\cdot [(n-m)-1]\cdot (n-m) } \biggr]
</math>
  </td>
</tr>

<tr>
  <td align="right">
&nbsp;
  </td>
  <td align="center">
&nbsp;
  </td>
  <td align="left">
<math>~\times
\biggl[ \frac{\cdots [(n+m)-4]\cdot [(n+m)-3]\cdot [(n+m)-2]\cdot [(n+m)-1]\cdot (n+m) }{\cdots 2[(n+m)-2]\cdot [2(n+m)-3]\cdot 2[(n+m)-1]\cdot [2(n+m)-1]\cdot 2[(n+m)] } \biggr]2^{4m}
</math>
  </td>
</tr>

<tr>
  <td align="right">
&nbsp;
  </td>
  <td align="center">
<math>~=</math>
  </td>
  <td align="left">
<math>~
(-1)^m \epsilon_m \epsilon_n \biggl[ \frac{\cdots 2^{n-m}  [2(n-m)-3]\cdot  [2(n-m)-1] }{1} \biggr]
\biggl[ \frac{1}{\cdots 2^{n+m}  [2(n+m)-3]\cdot [2(n+m)-1]] } \biggr]2^{4m}
</math>
  </td>
</tr>
</table>
-->