- #1

andlook

- 33

- 0

ParametricPlot3D[{Cos

__Sin[v], Sin__

__Sin[v], Cos[v]},__

{u,0,2Pi,Pi/20},{v,0,Pi,Pi/12}, Axes->None, Boxed->False]

gives one object.

Then

Do[ParametricPlot3D[

{Cos{u,0,2Pi,Pi/20},{v,0,Pi,Pi/12}, Axes->None, Boxed->False]

gives one object.

Then

Do[ParametricPlot3D[

{Cos

__Sin[v], Sin____Sin[v], Cos[v]},__

{u,0,2 Pi, Pi/n},{v,0,Pi,Pi/n}, Axes->None, Boxed->False],

{n,4,12,1}]

Should give multiple objects. But running this second code doesn't give any output. That is it runs for a second ie running in title box, finishes and I have no picture. The window looks same as before I ran it.

Any ideas why this is not displaying multiple objects?

Thanks{u,0,2 Pi, Pi/n},{v,0,Pi,Pi/n}, Axes->None, Boxed->False],

{n,4,12,1}]

Should give multiple objects. But running this second code doesn't give any output. That is it runs for a second ie running in title box, finishes and I have no picture. The window looks same as before I ran it.

Any ideas why this is not displaying multiple objects?

Thanks