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[3])) Sqrt[u]
Cos[1/2 (v - Sqrt[3] Log[u])],
E^(v/(2 Sqrt[3])) Sqrt[u] Sin[1/2 (v - Sqrt[3] Log[u])],
E^(-(v/Sqrt[3]))/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