Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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