Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

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




  • 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