Re: Polar(List)DensityPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg21294] Re: [mg21273] Polar(List)DensityPlot
- From: Hartmut Wolf <hwolf at debis.com>
- Date: Wed, 22 Dec 1999 00:34:47 -0500 (EST)
- Organization: debis Systemhaus
- References: <199912210846.DAA05363@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
W.F.J.C. Meyboom schrieb:
>
> Hi,
>
> I'd like to make something best described as a PolarDensityPlot or a
> PolarListDensityPlot.
>
Hello Wilfred
you may use the package
In[1]:= << ExtendGraphics`SurfaceGraphics3D`
In[2]:= ?ListSurfacePlot3D
In[3]:=
polardata =
With[{rc = Pi/20},
Table[ {r Cos[phi], r Sin[phi], BesselJ[2, r] Cos[3 phi - r/3]},
{r, 0, 10, 0.5}, {phi, 0, 2 Pi, rc}]];
In[4]:= ListSurfacePlot3D[polardata, BoxRatios -> {1, 1, 0.2}]
The package is from Tom Wickham-Jones and available at
http://www.mathsource.com/ (search for the author)
Kind regards, Hartmut
- References:
- Polar(List)DensityPlot
- From: "W.F.J.C. Meyboom" <meyboomw@natlab.research.philips.com>
- Polar(List)DensityPlot