Re: ParametricPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg61726] Re: [mg61693] ParametricPlot3D
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Thu, 27 Oct 2005 05:02:00 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
Use Evaluate
ToPlot = {{Cos[f] Sin[t], Sin[t] Sin[f], Cos[t]},
{Cos[f] Sin[t] + 1, Sin[t] Sin[f], Cos[t]}};
ParametricPlot3D[Evaluate[ToPlot],
{t, 0, Pi}, {f, 0, 2 Pi}];
Bob Hanlon
>
> From: "Maurits Haverkort" <Haverkort at ph2.uni-koeln.de>
To: mathgroup at smc.vnet.net
> Date: 2005/10/26 Wed AM 01:01:48 EDT
> Subject: [mg61726] [mg61693] ParametricPlot3D
>
> Dear all
>
> I want to plot several surfaces in one plot and used for that
> ParametricPlot3D. Everything works fine if I enter the definitions for the
> functions inline. If I define however a variable (list) that holds the
> different functions it does not work anymore. Does anybody know a way
out?
>
> The functions I want to plot are for example two spherse of unit radia
> centered at 000 and 100. (I need in the end to plot funcitons (R[t,f]
> centered at different orrigens)
>
> If I write it inline it works fine
> ParametricPlot3D[{{Cos[f] Sin[t], Sin[t] Sin[f], Cos[t]}, {Cos[f] Sin[t] +
> 1, Sin[t] Sin[f], Cos[t]}}, {t, 0, 3.1415}, {f, 0, 2 3.1415}];
>
> If however I first define my functions and then try to plot:
> 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}];
> I get the error:
> ParametricPlot3D::ppfun : Argument ToPlot is not a list with three or four
> elements. More.
>
> Since the function I need to plot is a result of a calculation I rather need
> to input it as a variable. Any sugestions?
>
> Thanks,
> Maurits
>
>