MathGroup Archive 2007

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

Search the Archive

Re: Combining a parametric plot with a Graphics3D plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg79585] Re: Combining a parametric plot with a Graphics3D plot
  • From: chuck009 <dmilioto at comcast.com>
  • Date: Mon, 30 Jul 2007 06:43:39 -0400 (EDT)

Hello guys.

I think I've come up with a nice solution:  I was reviewing Michael Trott's code for generating the Riemann surfaces for the Lambert W fuction.  You can get his code from the Mathworld site at "Lambert W fuction".  He has a function to generate 3-D tubes of ParametricPlot3D plots called "maketubes".  These are better rendered than just a curve.  The plot below shows the imaginary components of three zeros of the function:

f[z]=1+Exp[z]Sqrt[z]; 0<theta<2pi

in terms of the multi-value 1/2W[2] as red, yellow and green "spheres" placed onto the imaginary surface of the multi-function f[z]=1/2W[z].  The yellow curve connecting them is a parametric tube set with a diameter of 1/40.  Not bad.  His code is good to review as it shows a lot of different techniques such as setting default options and re-defining functions using the Protect/Unprotect mechanism as well as a lot of techniques  using short-cut symbols.  

http://img407.imageshack.us/img407/7127/wfunctionzerosny9.jpg

Note to Michael:  I changed your code a bit and am not using any of the figures you published.  All the plots are mine.


  • Prev by Date: Re: Module inside Module. Conflict between inner Module local variable
  • Next by Date: Re: Unbearably slow plotting (v6)
  • Previous by thread: Combining a parametric plot with a Graphics3D plot
  • Next by thread: Re: [Mathematica 6] spurious $Aborted messages. How to track down