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?"