MathGroup Archive 2010

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

Search the Archive

Re: ParametricPlot3D with three parameters

  • To: mathgroup at smc.vnet.net
  • Subject: [mg108276] Re: ParametricPlot3D with three parameters
  • From: Narasimham <mathma18 at hotmail.com>
  • Date: Fri, 12 Mar 2010 07:11:31 -0500 (EST)
  • References: <hnakg8$5o2$1@smc.vnet.net>

contd..

This   following Do command does   not   work   on   my   PC.

(*   from http://mathmuse.sci.ibaraki.ac.jp/geom/param20E.html  *)

  Do[Plot3D[10 Sin[Sqrt[n x^2/10+n y^2/10]-Pi n/2]/(n+1),{x,-20,20},
{y,-20,20},AspectRatio=EF=82=AEAutomatic,Mesh=EF=82=AEFalse,PlotRange-
>{-10,10},PlotPoints->50,Boxed->False,Axes->None],{n,0,9}]

Here neither Do command nor  avoiding original shading of  (u,v)
sphere succeeded.

Do[ ParametricPlot3D[ R {Cos[ u ] Cos[v], - Cos[u] Sin[v],Sin[u]}, {u,
0, 1.5}, {v, 0, Pi},PlotStyle->White ], {R, 1, 1.4,0.1} ] does not
work.

Narasimham







  • Prev by Date: Re: Setting default zoom factor in notebooks
  • Next by Date: Re: locally changing Options
  • Previous by thread: Re: ParametricPlot3D with three parameters
  • Next by thread: Re: ParametricPlot3D with three parameters