MathGroup Archive 2005

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

Search the Archive

Fancy 3d plotting in Mathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg59850] Fancy 3d plotting in Mathematica
  • From: mike_in_england2000 at yahoo.co.uk
  • Date: Wed, 24 Aug 2005 06:30:16 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

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: An Array of Equation Parameters
  • Next by Date: Re: coefficient of a polynomial term
  • Previous by thread: Re: An Array of Equation Parameters
  • Next by thread: Re: Fancy 3d plotting in Mathematica