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: [mg110324] Re: 3D plot of hemisphere pushing into a triangular membrane or
  • From: Narasimham <mathma18 at hotmail.com>
  • Date: Sun, 13 Jun 2010 04:11:29 -0400 (EDT)
  • References: <husjud$6go$1@smc.vnet.net>

On Jun 11, 11: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 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=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.

The x,y,z plot limits have to be mentioned for PlotRange.
One way of depicting may be:
aa = Plot3D[1 - x - y, {x, -1, 1}, {y, -1, 1},
   PlotRange -> {{-1, 1}, {-1, 1}, {-1, 2}} ] ;
shift = 0.3;
sphXYZ = { shift + Cos[ph] Cos[t], Cos[ph] Sin[t], Sin[ph]};
sph = ParametricPlot3D[sphXYZ, {ph, 0, 1.5}, {t, 0, 2 Pi},
   PlotRange -> {{-1, 1}, {-1, 1}, {0, 1}}] ;
Show[{aa, sph}, PlotRange -> {{-1, 1}, {-1, 1}, {0, 1}},
 AspectRatio -> Automatic]

Narasimham




  • Prev by Date: Re: Handheld mathematica
  • Next by Date: Re: 3D plot of hemisphere pushing into a triangular membrane or
  • Previous by thread: Re: Find value of unknown const that causes integral to equal some
  • Next by thread: Re: 3D plot of hemisphere pushing into a triangular membrane or