MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Convective diffusion equation in 2D


> With[{\[ScriptCapitalD] = 1/8, v = 1/4},
>   sol = NDSolve[{
>      D[u[x, y, t],
>        t] == \[ScriptCapitalD] (D[u[x, y, t], {x, 2}] +
>           D[u[x, y, t], {y, 2}]) - v*D[u[x, y, t], x],
>      u[-1, y, t] == 0, u[1, y, t] == 0,
>      u[x, -1, t] == 0, u[x, 1, t] == 0,
>      u[x, y, 0] == Piecewise[{{1, Sqrt[x^2 + y^2] <= 0.5}}, 0]},
>     u[x, y, t], {x, -1, 1}, {y, -1, 1}, {t, 0, 2}
>     ]
>   ]
>
> may do that .. Ignore the warnings you get with the
> statement above, the reason are the initial conditions
> and you may have other.

Hi Jens,

I wasn't able to plot the result.  Have you tried this and
successfully plotted it?

Cheers,
Dan



  • Prev by Date: Re: Solving differential equations with parameters
  • Next by Date: Re: Solving differential equations with parameters
  • Previous by thread: Re: Convective diffusion equation in 2D
  • Next by thread: Re: Convective diffusion equation in 2D