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
|
