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!