Re: How to plot the surface of revolution graphics

*To*: mathgroup at smc.vnet.net*Subject*: [mg49215] Re: How to plot the surface of revolution graphics*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Thu, 8 Jul 2004 02:50:48 -0400 (EDT)*Organization*: Universitaet Leipzig*References*: <ccg4la$osp$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de*Sender*: owner-wri-mathgroup at wolfram.com

Hi, something like: << NumericalMath`SplineFit` points = {{2, 2}, {6, 6}, {7, 5}, {3, 1}}; ParametricPlot3D[ (tmp = spline[u]; {tmp[[1]], t, tmp[[2]]}), {t, 0., 4}, {u, 0, 4}, Compiled -> False] Regards Jens CYSTERNA++ wrote: > > I would like to make graphics with many surfaces. All surfaces are surfaces > of revolution. They are created through rotate specified countur about > certain line. I cannot make these graphics. > I have rectangle which is represented through 4 points which have following > coordinates : (2,2), (6,6), (7,5), 3,1). This rectangle is rotated about > line y(x) = x and is created cylindrical surface. How to create graph with > this surface. I know this is a simple problem and I can used > ParametricPlot3D[] function or another but in the real I have counturs more > complicated than rectangle and I would like use specified function to make > graph surface of revolution. > > Thanks for all > > -- > Regards > > CYSTERNA++