MathGroup Archive 2004

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

Search the Archive

Re: Plotting a surface side-by-side

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

Hi,

myPlot3D[fun_, {x_, x1_, x2_}, {y_, y1_, y2_}, opts___] :=
  Block[{ff},
    ff[xx_, yy_] = 
      If[xx < x1 || xx > x2 || yy < y1 || yy > y2, 0, 
        fun /. {x -> xx, y -> yy}];
    Plot3D[
      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]

??


Regards
  Jens


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