1
$\begingroup$

By hand, I've solved the heat equation and looking to 3D plot the solution. My function is $$2\sum_{n=1}^{\infty}\frac{(-1)^n}{n}\sin(nx)e^{-111n^2t}$$ The code I've been trying to use to far is

Plot3D[2*Sum[((-1)^n)/(n)Sin[n x]Exp[-111t*n^2],{n,1,Infinity}],
       {x,-Pi,Pi},{t,0,100}]

It's been running for a while with no output. Any help would be fab :)

$\endgroup$
  • 3
    $\begingroup$ We can approximate solution,put $\infty \approx 50$, or a bigger number. $\endgroup$ – Mariusz Iwaniuk Mar 11 '18 at 14:56
  • 1
    $\begingroup$ you might also try NSum here. $\endgroup$ – george2079 Mar 11 '18 at 16:54
  • $\begingroup$ There are lots of animations of PDE's solutions, all generated using Mathematica with source code used here that you can look at. You do not need that many terms really. I normally use few terms and that is enough. $\endgroup$ – Nasser Mar 11 '18 at 23:09
4
$\begingroup$

The Gaussian factor in your sum decays extremely quickly. We can thus truncate the sum safely; a naïve way to estimate the truncation limit goes like this:

Solve[Exp[-111 t n^2] == 2^-52 (* $MachineEpsilon *) && n > 0, n, Reals] // Simplify
   {{n -> ConditionalExpression[(2 Sqrt[(13 Log[2])/111])/Sqrt[t], t > 0]}}

and thus

Plot3D[2 Sum[(-1)^n/n Sin[n x] Exp[-111 t n^2],
             {n, 1, Ceiling[2 Sqrt[13 Log[2]/(111 t)]]}],
       {x, -π, π}, {t, 0, 100}]

plot

$\endgroup$
  • $\begingroup$ Very nice analysis of the truncation limit. Also limit t to much shorter times, to see where the solution is significant. Plot3D[2 Sum[(-1)^n/n Sin[n x] Exp[-111 t n^2], {n, 1, Ceiling[2 Sqrt[13 Log[2]/(111 t)]]}], {x, -π, π}, {t, 0, 1/10}, PlotPoints -> 100, PlotRange -> All, MaxRecursion -> 8, RegionFunction -> Function[{x, t, z}, Abs[z] > 10^-3]] $\endgroup$ – Akku14 Mar 17 '18 at 7:45
3
$\begingroup$

Mathematica is trying to evaluate the infinite sum, that's why it taking so long.

Why not try Partial sum?

Clear[n, t, x]

f[x_, t_, nn_] := 2*Sum[((-1)^n)/(n) Sin[n x] Exp[-111 t*n^2], {n, 1, nn}]

Plot3D[f[x, t, 100], {x, -Pi, Pi}, {t, 0, 1000}]

Now, try different values for nn (large ones).

$\endgroup$
1
$\begingroup$

If you are into animation, you can speed things with Compile.

Function to plot without the summation.

function = (2/n)*(-1)^n*Sin[n*x]*Exp[-111*n^2*t]

Get it into pure function form

un = Function[n, #] &@function;

Compile the function summed for n terms.

usum[n_] := Compile[{x, t}, #] &@Total@un@Range[1, n]

Pick a number of terms for plotting.

u = usum[50];


Animate[Plot[u[x, t], {x, -Pi, Pi}, PlotRange -> {-3, 3}, PlotLabel -> t*"t"], {t, 0, 0.05}]

enter image description here

The solution damps out quickly with that form of exponential term.

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.