Services & ResourcesWolfram ForumsMathGroup Archive

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

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

• Follow-Ups:
  • Re: Fancy 3d plotting in Mathematica
    • From: Zhengji Li <zhengji.li@gmail.com>
  • Re: Fancy 3d plotting in Mathematica
    • From: Jeff Bryant <jeffb@wolfram.com>