Re: How do I create a circular lamina?

*To*: mathgroup at smc.vnet.net*Subject*: [mg127532] Re: How do I create a circular lamina?*From*: Bob Hanlon <hanlonr357 at gmail.com>*Date*: Wed, 1 Aug 2012 04:59:31 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <20120731021336.F39CA6824@smc.vnet.net>

Use 3D functions Graphics3D[Cylinder[{{0, 0, 0}, {0, 0, 1}}, 5]] RegionPlot3D[ x^2 + y^2 < 25 && 0 < z < 1, {x, -5, 5}, {y, -5, 5}, {z, 0, 1}, BoxRatios -> {1, 1, 1/10}] Show[ Graphics3D[{Opacity[0.25], Sphere[{0, 0, 0}, 5], Sphere[{5, 0, 0}, 5]}], RegionPlot3D[ x^2 + y^2 + z^2 < 25 && (x - 5)^2 + y^2 + z^2 < 25, {x, -5, 5}, {y, -5, 5}, {z, -5, 5}, PlotPoints -> 35]] Bob Hanlon On Mon, Jul 30, 2012 at 10:13 PM, <drmoose94 at gmail.com> wrote: > Hi, > > I want to be able to visualize Euler's Rotation Theorem (I don't think there's an existing visualization/demonstration of that anywhere?), but in order to do so I need to draw two intersecting great circles of spheres. > > I can't see any primitive that allows a circular lamina or disk to be drawn in 3D. There's Disk[] and Circle[] in 2D, but Mathematica won't allow them to be converted to 3D. I can make one via revolution plotting a constant but that seems a really ugly hack. > > Is there a good way of getting a circular lamina in 3D/ > >