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>
• 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