Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: How to plot divergence of gradient as contour plot

• To: mathgroup at smc.vnet.net
• Subject: [mg124034] Re: How to plot divergence of gradient as contour plot
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Fri, 6 Jan 2012 04:18:47 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201201051100.GAA14785@smc.vnet.net>

Needs["VectorAnalysis`"]

coord = Cartesian[x, y, z];

ContourPlot[
 Evaluate[Div[Grad[Sin[x + y], coord], coord]],
 {x, -5, 5}, {y, -5, 5}]

Or

f[x_, y_] = Div[Grad[Sin[x + y], coord], coord];

ContourPlot[f[x, y], {x, -5, 5}, {y, -5, 5}]


Bob Hanlon

On Thu, Jan 5, 2012 at 6:00 AM, Szymon Roziewski
<szymon.roziewski at gmail.com> wrote:
> Hello there,
>
> I am concerning to plot something like that.
>
> ContourPlot[Divergence[Gradient[Sin[x + y]]], {x, -5, 5}, {y, -5, 5}]
>
> Plotting divergence of gradient scalar field.
> How can I manage to do that?
>
> Best regards,
> Szymon Roziewski

• References:
  • How to plot divergence of gradient as contour plot
    • From: Szymon Roziewski <szymon.roziewski@gmail.com>