MathGroup Archive 2004

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

Search the Archive

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