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 >