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