Re: Plotting a contour plot with cylindrical co-ordinates
- To: mathgroup at smc.vnet.net
- Subject: [mg49497] Re: Plotting a contour plot with cylindrical co-ordinates
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 22 Jul 2004 02:45:09 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <cdlip2$81u$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
plt = ContourPlot[
r^2*Cos[2th], {th, 0, 2Pi}, {r, 0, 4},DisplayFunction->Identity]
lines = Cases[Graphics[plt], _Line, Infinity];
Show[Graphics[lines /. Line[pnts_] :>
Line[(#1[[2]]*{Cos[#1[[1]]], Sin[#1[[1]]]} & ) /@
pnts], AspectRatio -> Automatic]]
???
or
ContourPlot[
f[Sqrt[x^2+y^2],ArcTan[x,y]],{x,-1,1},{y,-1,1}]
Regards
Jens
Jake wrote:
>
> I have a set of data which corresponds to points on a circle. I have
> these values as a function of r and theta. Is there a way of plotting
> this in Mathematica? The ContourPlot function requires x and y
> co-ordinates.
> Please help if you know.
> thanks.