Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

Re: Plotting a surface side-by-side

  • To: mathgroup at
  • Subject: [mg47343] Re: Plotting a surface side-by-side
  • From: Jens-Peer Kuska <kuska at>
  • Date: Tue, 6 Apr 2004 06:36:25 -0400 (EDT)
  • Organization: Universitaet Leipzig
  • References: <c4rdpi$me5$>
  • Reply-to: kuska at
  • Sender: owner-wri-mathgroup at


myPlot3D[fun_, {x_, x1_, x2_}, {y_, y1_, y2_}, opts___] :=
    ff[xx_, yy_] = 
      If[xx < x1 || xx > x2 || yy < y1 || yy > y2, 0, 
        fun /. {x -> xx, y -> yy}];
      Evaluate[ff[xx, yy]], {xx, x1 - 0.01, x2 + 0.01}, {yy, y1 - 0.01, 
        y2 + 0.01}, opts]

myPlot3D[Cos[Sqrt[x^2 + y^2]] + 1, {x, -Pi/2, Pi/2}, {y, -Pi/2, Pi/2}, 
  PlotPoints -> 30]



Jose wrote:
> I need to plot a 3D-surface, but I need to plot it side-by-side. Also
> I need to color its sides in gray level. I think it is not a problem
> if the side is 'curved' but how to meke it if it is plane? I mean, if
> one has to plot an arc of Sin(x), it can be properly done by
> FilledPlot. But what happens if I want to draw this arc in the
> 3D-space. There is is 3D version of FilledPlot? At the end, I expect
> your aids for doing this. I am interested more in the best final
> result than in the easiest way to do that. Thanks in advance! Wishes!

  • Prev by Date: Re: Vector-valued functions
  • Next by Date: RE: Vector-valued functions
  • Previous by thread: Plotting a surface side-by-side
  • Next by thread: RE: Plotting a surface side-by-side