Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'lost in the application of integration ie.SurfaceOfRevolution' topicStudent Support Forum > General > Archives > "lost in the application of integration ie.SurfaceOfRevolution"

Next Comment >Help | Reply To Topic
Author Comment/Response
sonya roberts billedo
05/03/00 11:09am

I'm trying to use the SurfaceOfRevolution command in order to present the following rotation in solid.
<<Graphics`Shapes`
ourregion=ParametricPlot3D[{{t,,0,4t-t^2,RGBColor[1,0,1]},{t,0,0,RGBColor[0,1,1]},{2,0,t,RGBColor[0,0,1]},{2,0,2t}},{t,0,2},ViewPoint->{1.3,-2.4,1.5],PlotRange->{{-2,2},{-2,2},{0,4},Boxed->False,ViewCenter->{1/2,1/2,1/2}];s=Table[RotateShape[ourregion,0,0,\[Phi]],{{Phi},0,2\[Phi]]-\[Phi]/32,\[Phi]/32}];Tablle[Show[Part[s,k]],{k,1,63}]

The problem I'm having is that the SurfaceOfRevolution will not graph the vertical part of this volume.

<<Graphics`SurfaceOfRevolution`
c=SurfaceOfRevolution[4t-t^2,{t,0,2}];s=SurfaceOfRevolution[0,{t,0,2}];v=SurfaceOfRevolution[0,{t,0,2}];Show[c,s,v}]


URL: ,

Subject (listing for 'lost in the application of integration ie.SurfaceOfRevolution')
Author Date Posted
lost in the application of integration ie.Surfa... sonya robert... 05/03/00 11:09am
Re: lost in the application of integration ie.S... Forum Modera... 05/06/00 07:43am
Re: lost in the application of integration ie.S... Aaron Honecker 05/17/00 12:12pm
Next Comment >Help | Reply To Topic