Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: Variations on ShadowPlot3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg92372] Re: Variations on ShadowPlot3D
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Mon, 29 Sep 2008 07:08:35 -0400 (EDT)
  • References: <gbnphk$psf$1@smc.vnet.net>

Hi,

with Mathematica 6

fun = Sin[x*y];
cntr = ContourPlot[fun, {x, -Pi, Pi}, {y, -Pi, Pi}];
plt3d = Plot3D[fun, {x, -Pi, Pi}, {y, -Pi, Pi}];

Graphics3D[
  {plt3d[[1]], cntr[[1]] /. GraphicsComplex[pnts_, data__] :>
     GraphicsComplex[Append[#, -2] & /@ pnts, data]}]

will work.

Regards
   Jens

er wrote:
> Hello,
> 
> I'm looking for something like,
> 
> ShadowPlot3D[fun[x2, x3], {x2, -10, 10}, {x3, -10, 10},
>   ViewPoint -> {1.303, -2.921, 1.104}, AxesLabel -> {"x2", "x3", ""}]
> 
> *but* such that the projection is something like:
> 
> ContourPlot[
>   funx2, x3],
>   {x2, -10, 10}, {x3, -10, 10},
>   Contours -> {-1,0,1}
> }
> 
> Is such a thing possible? How?
> 
> Thanks!
> 


  • Prev by Date: Re: ClearAll error message
  • Next by Date: Re: Defining a custom Leibnitz operator in Mathematica
  • Previous by thread: Variations on ShadowPlot3D
  • Next by thread: Re: Variations on ShadowPlot3D