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!