ParametricPlot3D

*To*: mathgroup at smc.vnet.net*Subject*: [mg61693] ParametricPlot3D*From*: "Maurits Haverkort" <Haverkort at ph2.uni-koeln.de>*Date*: Wed, 26 Oct 2005 01:01:48 -0400 (EDT)*References*: <200510250528.BAA23561@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

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

**Follow-Ups**:**Re: ParametricPlot3D***From:*Igor Antonio <igora@wolf-ram.com>

**Re: ParametricPlot3D***From:*Chris Chiasson <chris.chiasson@gmail.com>

**References**:**Re: notebook directory***From:*Bill Rowe <readnewsciv@earthlink.net>