       Re: ParametricPlot3D

• To: mathgroup at smc.vnet.net
• Subject: [mg61707] Re: [mg61693] ParametricPlot3D
• From: "Jaccard Florian" <Florian.Jaccard at he-arc.ch>
• Date: Thu, 27 Oct 2005 05:01:32 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Hello !

Just evaluate ToPlot!

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, 3.1415},
{f, 0, 2*3.1415}];

Regards

F.Jaccard

-----Message d'origine-----
De : Maurits Haverkort [mailto:Haverkort at ph2.uni-koeln.de]
Envoyé : mercredi, 26. octobre 2005 07:02
À : mathgroup at smc.vnet.net
Objet : [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

```

• Prev by Date: Re: ParametricPlot3D
• Next by Date: Re: ParametricPlot3D
• Previous by thread: Re: ParametricPlot3D
• Next by thread: Re: ParametricPlot3D