Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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/
>
>



  • Prev by Date: Re: Manipulate a Plot of Evaluate DSolve
  • Next by Date: Re: Mathematica as a New Approach to Teaching Maths
  • Previous by thread: Re: How do I create a circular lamina?
  • Next by thread: Re: How do I create a circular lamina?