MathGroup Archive 2005

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

Search the Archive

Re: Fancy 3d plotting in Mathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg59922] Re: [mg59850] Fancy 3d plotting in Mathematica
  • From: "Jose Luis Gomez" <jose.luis.gomez at itesm.mx>
  • Date: Thu, 25 Aug 2005 06:34:31 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Mike, the standard Add-On library Graphics`Graphics3D has a command
ShadowPlot3D that can be used to produce graphs similar to the one you want.
Look at the example in the following link:

http://homepage.cem.itesm.mx/jose.luis.gomez/shadowplot3d/

Regards!
José Luis

-----Mensaje original-----
De: mike_in_england2000 at yahoo.co.uk [mailto:mike_in_england2000 at yahoo.co.uk]

Enviado el: Miércoles, 24 de Agosto de 2005 05:30 a.m.
Para: mathgroup at smc.vnet.net
Asunto: [mg59850] Fancy 3d plotting in Mathematica

Hi

Using 3D plot I can make a very nice surface plot of the sinc function:

Plot3D[Sin[Sqrt[x*x +
      y*y]]/Sqrt[x*x + y*y], {x, -10, 10}, {y, -10, 10}, PlotRange ->
All]

and I can do Contour plots:

ContourPlot[Sin[Sqrt[x*x + y*y]]/Sqrt[x*x + y*y], {x, -10, 10}, {
    y, -10, 10}, PlotRange -> All]

And all this is very nice.  However is it straightforward to combine
these plots a la Gnuplot:

http://chem.skku.ac.kr/~wkpark/tutor/gnuplot/gpdocs/imgs/contours17.png

Thanks for your time

Mike


  • Prev by Date: The updated version of Notations Package
  • Next by Date: Re: Simplifying Conjugate[] with 5.2 Mac
  • Previous by thread: Re: Fancy 3d plotting in Mathematica
  • Next by thread: Re: Fancy 3d plotting in Mathematica