Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: 3D plot of hemisphere pushing into a triangular membrane or

  • To: mathgroup at smc.vnet.net
  • Subject: [mg110316] Re: 3D plot of hemisphere pushing into a triangular membrane or
  • From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
  • Date: Sun, 13 Jun 2010 04:10:03 -0400 (EDT)
  • References: <husjud$6go$1@smc.vnet.net>

Graphics3D[
 {
  Sphere[{0, 0, 0}, 0.65],
  Polygon[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}]
  }
 ]

You could start reading the documentation of Graphics3D. Open the box
"More information" below the syntax description and you'll find some
graphics primitives you could use.

Cheers -- Sjoerd

On Jun 11, 8:09 am, Garapata <warsaw95... at mypacks.net> wrote:
> I'd like to create a 3D plot of some kind with 2 key elements.
>
> 1. something that looks like a membrane stretched across a unit
> triangle with coordinates {{1,0,0}, {0,1,0},{0,0,1}}
>
> 2. a hemisphere that would press up from behind the membrane
>
> Basically a hemisphere pushing up through or intersecting a plane.
>
> I'll then set up a Manipulate so I can control 3 parameters:
>
>         diameter of the sphere;
>         how far it penetrates through the plane defined by the tr=
iangle;  and
>         where it penetrates the plane of the triangle.
>
> The Manipulate should be straight forward, I think I can handle that
> part easily enough.  But the plot part has eluded me.
>
> I've searched the documentation for anything that looked relevant.
>
> Graphics3D[{Sphere[{0, 0, 1}, 1], Sphere[{1, 0, 1}, 1/2]}, =E2=80=A=
8 BoxSty=
> le -
>
> > Directive[LightGray]]
>
> Which shows 2 spheres intersecting and
>
> Plot3D[UnitTriangle[x, y], {x, -1, 1}, {y, -1, 1}, PlotRange -> All,
> BoxStyle -> Directive[LightGray]]
>
> which shows something one could think of as a membrane both look
> promising, but
> I can't figure out where to go next.
>
> I haven't done a lot of graphics with Mathematica and just need an
> idea of where to start.
>
> Any thoughts appreciated.
>
> Thanks,
> G
>
> P.S. I made a couple of responses to thank forum participants for
> their help on previous posts that never appeared in the forum.  Not
> certain what happened, but belatedly, many many thanks.



  • Prev by Date: Re: 3D plot of hemisphere pushing into a triangular membrane or
  • Next by Date: Re: Using mathematica to read website
  • Previous by thread: Re: 3D plot of hemisphere pushing into a triangular membrane or
  • Next by thread: Excel Data Managing