MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: puzzling revolution surface

  • To: mathgroup at smc.vnet.net
  • Subject: [mg67436] Re: puzzling revolution surface
  • From: "Narasimham" <mathma18 at hotmail.com>
  • Date: Sat, 24 Jun 2006 05:27:59 -0400 (EDT)
  • References: <e757vn$l2t$1@smc.vnet.net><e7844t$fmh$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

dh wrote:

> Hi Narasimham,
> if you plot a surface of revolution, the curve in the x-z plane is
> independent of the rotation angle. However, your curve does depend on
> this angle and therefore, your surface is no more a surface of
> revolution. That this works at all is an undocumented feature of
> SurfaceOfRevolution.
>
> Daniel
>
> Narasimham wrote:
> > Am not able to comprehend how this is a surface of revolution.(When 2D
> > plots on two parameters are also possible).
> >
> > << Graphics`SurfaceOfRevolution`
> > <<RealTime3D`
> > SurfaceOfRevolution[{Sin[u] ,0.8 Cos[ v] +1 },{u,0, Pi},{v,0,2
> > Pi},RevolutionAxis->{0,0,1}]
> >

Yes indeed Daniel, the following are certainly not surfaces of
revolution:

<<  Graphics`SurfaceOfRevolution`
<<  RealTime3D`
SurfaceOfRevolution[{ u ,v },{u,0, 1},{v,0,6},RevolutionAxis->{1,2,1},
PlotPoints->{7,60}  ]  ;
SurfaceOfRevolution[{ u ,v },{u,0, 3},{v,0, 3},
RevolutionAxis->{0,1,0},   PlotPoints->  {7,10}  ]  ;
SurfaceOfRevolution[{ u ,v },{u,0,3},{v,0,6},RevolutionAxis->{0,0,1},
PlotPoints->{7,55}   ]  ;
SurfaceOfRevolution[{ u ,v },{u,0, 1},{v,0,6},RevolutionAxis->{1,1,0},
  PlotPoints->{7,125} ]  ;
SurfaceOfRevolution[{ u ,v },{u,0, 8},{v,0,12},
RevolutionAxis->{0,1,1},   PlotPoints->{7,75}]  ;
SurfaceOfRevolution[{ u ,v },{u,0, 3},{v,-10,10},
RevolutionAxis->{1,0,1}, PlotPoints->{7,175}]  ;
SurfaceOfRevolution[{ u ,v },{u,0, 8},{v,0,12},
RevolutionAxis->{1,1,1},    PlotPoints->{7,60}]  ;
SurfaceOfRevolution[{ u+v ,u*v/5 },{u,-1
,1},{v,-1,1},RevolutionAxis->{-1,+1,-1},    PlotPoints->{7,20}]  ;
SurfaceOfRevolution[{ 1-Cos[u] ,1+  Cos[ v]  },{u,0.1, Pi/2},{v,0,2
Pi},RevolutionAxis->{1,0,0},PlotPoints->{8,30}]  ;
SurfaceOfRevolution[{ 1-Cos[u] ,1+  Cos[ v]  },{u,0.1, Pi/2},{v,0,2
Pi},RevolutionAxis->{0,1,0},PlotPoints->{8,30}]  ;
SurfaceOfRevolution[{ 1-Cos[u] ,1+  Cos[ v]  },{u,0.1, Pi/2},{v,0,2
Pi},RevolutionAxis->{0,0,1},PlotPoints->{8,30}]  ;
<<  Default3D`

The command name (SurfaceOfRevolution) in  case of rotation dependence
is  a misnomer.May be some alternative names  like:
ParametricSurface3D[{ u+v ,  u*v/5 },{u,-1 ,1},{v,-1,1}, Generatrix->
{1,1,0}]  could be  considered.

The command appears quite versatile  by incorporation of surface
variation with rotations and  has  a promise to generate  many types of
surfaces  by the triple choice viz., f[u,v], g[u,v]  and RevolutionAxis
or Direction-Cosines -> {l,m,n} ). I mean not  just the surfaces of
revolution or extrutions but a larger section of surface
parameterizations can be in some way be included.

I am wondering what could have  held  back its declaration  in versions
so far..swept out surface is not hitherto known? so not useful? ..But
such symbolic variable generalizations have already been elsewhere used
to advantage in Mathematica. 

Best Regards,
Narasimham


  • Prev by Date: Mathematica at Math Camp
  • Next by Date: RE:$Post
  • Previous by thread: Re: puzzling revolution surface
  • Next by thread: How to Integrate or Differentiate a function of data list?