Re: no line PlotStyles with ParametricPlot3D ?

*To*: mathgroup at smc.vnet.net*Subject*: [mg51226] Re: no line PlotStyles with ParametricPlot3D ?*From*: mathma18 at hotmail.com (Narasimham G.L.)*Date*: Sat, 9 Oct 2004 04:18:41 -0400 (EDT)*References*: <ck5e1d$oi7$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

"David Park" <djmp at earthlink.net> wrote in message news:<ck5e1d$oi7$1 at smc.vnet.net>... > You could use the unintuitive feature of putting graphics primitives in the > parametrization (and by the many questions on this it is a frequent source > of confusion to users) Thanks, you and Jens Kuska . Yes, I also did n't expect what appear as dissimilars can be so clubbed together. Perhaps you can give one mega example of what all features could still jump onto the 3D graphics bandwagon.. :) > > xyz = {Cos[t] Cosh[t], t + Tanh[t], > Sin[t]Cosh[t], {RGBColor[1, 0, 0], Thickness[.01]}}; > ParametricPlot3D[xyz, {t, 0, 2 Pi} ]; > > Or you could more intuitively use DrawGraphics > > Needs["DrawGraphics`DrawingMaster`"] > xyz = {Cos[t] Cosh[t], t + Tanh[t], Sin[t]Cosh[t]}; > Draw3DItems[ > {Red, Thickness[0.01], > ParametricDraw3D[xyz, {t, 0, 2 Pi} ]}, > Axes -> True]; Shall try when I get a higher version. > But there a use of the 'directives in the parametrization' in that you can > vary them as a function of t. > > xyz = {Cos[t] Cosh[t], t + Tanh[t], > Sin[t]Cosh[t], {Hue[t/(2Pi)], Thickness[0.01]}}; > ParametricPlot3D[xyz, {t, 0, 2 Pi} ]; Hue looks nice,like some mysteriously glowing laser tube or linear rainbow. > xyz = {Cos[t] Cosh[t], t + Tanh[t], Sin[t]Cosh[t]}; > Draw3DItems[ > {Thickness[0.01], > ParametricDraw3D[ > Join[xyz, {Hue[t/(2Pi)]}] // Evaluate, {t, 0, 2 Pi} ]}, > Axes -> True]; Regards -- Narasimham