Re: contour for polar coordinate

• To: mathgroup at smc.vnet.net
• Subject: [mg52670] Re: contour for polar coordinate
• From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
• Date: Tue, 7 Dec 2004 05:48:24 -0500 (EST)
• Organization: Uni Leipzig
• References: <cp3snh\$983\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi,

ContourPlot[
Evaluate[f /. {r -> Sqrt[x^2 + y^2], phi -> ArcTan[x, y]}], {x, -5,
5}, {y, -5, 5}, PlotPoints -> 50, ColorFunction -> Hue]

or

gg = Graphics[
ContourPlot[Evaluate[f ], {r, 0.001, 5}, {phi, -Pi, Pi},
PlotPoints -> 50, ColorFunction -> Hue, DisplayFunction -> Identity]
] /. (h : Line | Polygon)[pnts_] :>
h[#[[1]]*{Cos[#[[2]]], Sin[#[[2]]]} & /@ pnts];

Show[gg , DisplayFunction -> \$DisplayFunction]

Regards

Jens

"Tun Myint Aung" <TMA at nus.edu.sg> schrieb im Newsbeitrag
news:cp3snh\$983\$1 at smc.vnet.net...
> Hi,
>
>    I am trying to plot a contour for a function which is in polar
> coordinate. I have tried for a week already. But I still don't know how
> to draw it. Anyone can help me?
>
> For example
>
> My function is
> f = (0.2780543277145557 - 0.9275402582878466*
>
> BesselJ[0, 7.076718097009348*r] + 0.07256218841709995*
>
> BesselY[0, 7.076718097009348*r] - 0.2389342773790369*
>
> Log[r])Cos[phi]
>
>
>
> With Regards,
> Tun Myint Aung (Graduate Student)
> Civil Engineering Department
> National University of Singapore
> E1A 02-18
> E-mail: g0202015 at nus.edu.sg (or) tma at nus.edu.sg
>

```

• Prev by Date: Re: Re: in center of a triangle
• Next by Date: Re: Partial fraction command
• Previous by thread: contour for polar coordinate
• Next by thread: SVG to graphics primitives