Re: no line PlotStyles with ParametricPlot3D ?
- To: mathgroup at smc.vnet.net
- Subject: [mg51197] Re: no line PlotStyles with ParametricPlot3D ?
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Fri, 8 Oct 2004 02:54:44 -0400 (EDT)
- Organization: Uni Leipzig
- References: <ck33sp$b0t$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
xyz = {Cos[t] Cosh[t], t + Tanh[t], Sin[t]Cosh[t]};
ParametricPlot3D[Evaluate[Append[xyz,{RGBColor[1, 0, 0], Thickness[.01]} ]],
{t, 0, 2 Pi} ];
Regards
Jens
"Narasimham G.L." <mathma18 at hotmail.com> schrieb im Newsbeitrag
news:ck33sp$b0t$1 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?"
>