Re: ParametricPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg61729] Re: [mg61693] ParametricPlot3D
- From: Richard Palmer <mapsinc at bellatlantic.net>
- Date: Thu, 27 Oct 2005 05:02:09 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Wrap an evaluate around ToPlot and the thing will work correctly.
ParametricPlot3D[Evaluate[ToPlot], {t, 0, 3.1415}, {f, 0, 2 3.1415}];
Regards,
On 10/26/05 1:01 AM, "Maurits Haverkort" <Haverkort at ph2.uni-koeln.de> wrote:
> ToPlot = {{Cos[f] Sin[t], Sin[t] Sin[f], Cos[t]}, {Cos[f] Sin[t] + 1, Sin[t]
> Sin[f], Cos[t]}};
> ParametricPlot3D[ToPlot, {t, 0, 3.1415}, {f, 0, 2 3.1415}];