3D plot of hemisphere pushing into a triangular membrane or surface
- To: mathgroup at smc.vnet.net
- Subject: [mg110271] 3D plot of hemisphere pushing into a triangular membrane or surface
- From: Garapata <warsaw95826 at mypacks.net>
- Date: Fri, 11 Jun 2010 02:09:21 -0400 (EDT)
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 triangle; 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=A8 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.