| 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: , |
|
