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: [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


  • Prev by Date: Re: long evaluation time
  • Next by Date: Factor 2 error in Inverse Laplace Transform
  • Previous by thread: Re: no line PlotStyles with ParametricPlot3D ?
  • Next by thread: Variance of sample and whole dataset