Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

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 ?