Re: Help in making simple 3d spiral...tai sal
- To: mathgroup at smc.vnet.net
- Subject: [mg58081] Re: Help in making simple 3d spiral...tai sal
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Fri, 17 Jun 2005 07:09:29 -0400 (EDT)
- Organization: Uni Leipzig
- References: <d8u6hq$89m$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
ParametricPlot3D[
{Cos[phi] + Exp[-(Cos[phi] - Cos[4Pi*z])^2/4]/3,
Sin[phi] + Exp[-(Sin[phi] - Sin[4Pi*z])^2/4]/3,
z},
{phi, 0, 2Pi}, {z, 0, 4}, PlotPoints -> {64,
128}]
BTW a spiral is a two dimensional object like
ParametricPlot[{r*Cos[r], r*Sin[r]}, {r, 0, 4Pi}]
Regards
Jens
<sal at spp.net> schrieb im Newsbeitrag
news:d8u6hq$89m$1 at smc.vnet.net...
> Greetings All,
>
> Does anyone know how to plot a 3d spiral shape
> (like a screw) if so can you post an example.
>
> TIA
> sal
>