Consider a sphere of radius $a$ that is heated uniformly and then immersed in cold water. The temperature in the sphere can be modelled by $\theta(r,t)$ where $\theta(r,t)$ satisfies $$\frac{\partial \theta}{\partial t}= \frac{D}{r^2}\frac{\partial}{\partial r}\left(r^2 \frac{\partial \theta}{\partial r} \right)$$ where $0<r<a, t>0, \theta(a,t)=0,\theta(r,0)=1$.
I'm given that the solution is $$\theta(r,t)=\frac{1}{r}\sum_{n=1}^{\infty}a_ne^{\left(\frac{\pi n}{a}\right)^2Dt}\sin\left(\frac{\pi n}{a}r\right)$$ where $$a_n=\frac{-2a(-1)^n}{\pi n}$$
I'm asked to find an expression for the heat at the centre of the sphere for $t>0$. The centre of the sphere corresponds to $r=0$ where the solution is undefined, so how do I do this?
Hi I posted a question here
Summing $\frac{1}{a}-\frac{1}{a^4}+\frac{1}{a^9}-\cdots$
The answer to your question is far less trivial than I expected, it can only be expressed as Jacobi $\vartheta$ function. Referring to Mathematica documentation, you can plot the solution in Mathematica as (define $x = \pi^2 D t /a^2$):
The figure is shown below (horizontal axis is "scaled" time, vertical axis is temperature). You can see the temperature is pretty much constant due to the thick, outer region of the sphere, then it quickly decreases after some point. Beautiful!