       Fusing two 3-D surfaces

• To: mathgroup at smc.vnet.net
• Subject: [mg120514] Fusing two 3-D surfaces
• From: Gilmar Rodriguez-pierluissi <peacenova at yahoo.com>
• Date: Wed, 27 Jul 2011 06:11:47 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

```How can I "fuse" the following two 3-D surfaces,
as a single 3-D surface? I need to join them where
the downward funnel of plt1 meets the upward funnel of plt2;
as a single 3-D surface.

plt1= Plot3D[-1/(x^2 + y^2 + 0.5), {x, -2, 2}, {y, -5, 5},
PlotStyle -> Directive[Orange, Specularity[White, 40]],
Boxed -> False, Axes -> False, Mesh -> False, ImageSize -> 500,
ViewPoint -> {-22.197, 0.387, 11.0}]

plt2 = ParametricPlot3D[{E^(v/(2 Sqrt)) Sqrt[u]
Cos[1/2 (v - Sqrt Log[u])],
E^(v/(2 Sqrt)) Sqrt[u] Sin[1/2 (v - Sqrt Log[u])],
E^(-(v/Sqrt))/u}, {u, .1, 5}, {v, -3, 3},
PlotStyle -> Directive[Orange, Specularity[White, 40]],
Boxed -> False, Axes -> False, Mesh -> False ,
ViewPoint -> {-22.197, 0.387, 11.0}]

Thank you for your help!

Gilmar Rodriguez-Pierluissi

```

• Prev by Date: Genomes Mathematica knows about and how to use them?
• Next by Date: Re: And now for something completely different
• Previous by thread: Re: Genomes Mathematica knows about and how to use them?
• Next by thread: getting ride of 0.i