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: [mg59898] Re: Fancy 3d plotting in Mathematica
  • From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
  • Date: Thu, 25 Aug 2005 06:33:32 -0400 (EDT)
  • Organization: Uni Leipzig
  • References: <dehien$bsg$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

not exactly but Graphics`Graphics3D`ShadowPlot3D[] 
will
do something similar. Or
Block[{$DisplayFunction=Identity},

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

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

]

Show[surf,
Graphics3D[
Cases[Graphics[cntr], _Line, Infinity] /.
Line[pnts_] :> Line[Append[#, -1] & /@ pnts]], 
BoxRatios -> {1, 1, 1}]


Regards
  Jens
<mike_in_england2000 at yahoo.co.uk> schrieb im 
Newsbeitrag news:dehien$bsg$1 at smc.vnet.net...
| 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: Re: An Array of Equation Parameters
  • Next by Date: Re: How to solve this type of equation in Mathematica?
  • Previous by thread: Re: Fancy 3d plotting in Mathematica
  • Next by thread: Re: Re: (Laplace equation)