[Date Index]
[Thread Index]
[Author Index]
Re: ParametricPlot3D
 To: mathgroup at smc.vnet.net
 Subject: [mg61712] Re: ParametricPlot3D
 From: "JensPeer Kuska" <kuska at informatik.unileipzig.de>
 Date: Thu, 27 Oct 2005 05:01:37 0400 (EDT)
 Organization: Uni Leipzig
 References: <200510250528.BAA23561@smc.vnet.net> <djn3ri$iol$1@smc.vnet.net>
 Sender: ownerwrimathgroup at wolfram.com
Hi,
ParametricPlot3D[] has the HoldAll attribute and
you must use
ParametricPlot3D[Evaluate[ToPlot], {t, 0, 3.1415},
{f, 0, 2 3.1415}];
to get it work for a list of surfaces.
Regards
Jens
"Maurits Haverkort" <Haverkort at ph2.unikoeln.de>
schrieb im Newsbeitrag
news:djn3ri$iol$1 at smc.vnet.net...
 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: Running the kernel command line with additional input files
Previous by thread:
Re: ParametricPlot3D
Next by thread:
Re: notebook directory
 