       Re: no line PlotStyles with ParametricPlot3D ?

• To: mathgroup at smc.vnet.net
• Subject: [mg51198] Re: [mg51190] no line PlotStyles with ParametricPlot3D ?
• From: "David Park" <djmp at earthlink.net>
• Date: Fri, 8 Oct 2004 02:54:45 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```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)

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];

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} ];

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];

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

From: Narasimham G.L. [mailto:mathma18 at hotmail.com]
To: mathgroup at smc.vnet.net

<< Graphics`Graphics3D`;
xyz = {Cos[t] Cosh[t], t + Tanh[t], Sin[t]Cosh[t]};
ParametricPlot3D[xyz, {t, 0, 2 Pi} ];
xyzT = Table[ xyz, {t, 0, 2 Pi,Pi/30}];
ScatterPlot3D[xyzT, PlotJoined -> True,
PlotStyle -> {RGBColor[1, 0, 0], Thickness[.01]} ];
"PlotStyles of 3D space curve not possible except by using  ScatterPlot?"

```

• Prev by Date: Re: Re: Conveniently Restarting Notebooks
• Next by Date: webMathematica and loss of context
• Previous by thread: Re: no line PlotStyles with ParametricPlot3D ?
• Next by thread: Re: no line PlotStyles with ParametricPlot3D ?