Re: 3D plot with range restricted to non-rectangular region
- To: mathgroup at smc.vnet.net
- Subject: [mg66125] Re: 3D plot with range restricted to non-rectangular region
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Sun, 30 Apr 2006 04:21:36 -0400 (EDT)
- References: <e2v6od$neh$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
no really but
Off[ParametricPlot3D::pplr]
gr = ParametricPlot3D[{x, y,
h[x, y, 1 - x - y]}, {y, 0, 1}, {x, 0, 1}, DisplayFunction -> Identity];
Show[Graphics3D[
Cases[gr, p_Polygon /; FreeQ[p, Indeterminate], Infinity]]]
may help you.
Regards
Jens
David Sanders wrote:
> Hi,
>
> I want to plot a function whose range is naturally restricted to a
> non-rectangular region:
>
> h[x_, y_, z_] := Log[x] + Log[y] + Log[z]
>
> h2[x_, y_] := h[x, y, 1 - x - y]
>
> Only the region {(x,y): 0<x<1; 0<y<1-x} is allowed.
>
> If I try the naive
> Plot3D[h2[x, y], {x, 0, 1}, {y, 0, 1}]
>
> then I get error messages of the type:
>
> Plot3D::plnc: h2[x, y] is neither a machine-size real number at {x,
> y}={0.5, \
> 0.5} nor a list of a real number and a valid color directive
>
> But then it plots the graph anyway.
>
> I also need contour plots of functions like this.
>
> Is there a proper way of avoiding these error messages, like making it
> ignore points whenever they contain an illegal operation (here, Log of
> a negative number)?
>
> Thanks,
> David.
>