Re: Plotting 3D with regions with non constant limits
- To: mathgroup at smc.vnet.net
- Subject: [mg38724] Re: Plotting 3D with regions with non constant limits
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 7 Jan 2003 07:26:19 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <av95bi$sds$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
no because Mathematica store a rectangular grid of function
values in SurfaceGraphics[] objects. But how is
Off[Throw::argt]
Off[Plot3D::plnc]
Off[Plot3D::gval]
Plot3D[Catch[If[y < 1 - x^2, x + y, Throw[]]], {y, 0, 1}, {x, -1, 1},
PlotPoints -> 30]
Regards
Jens
Frans de Boer wrote:
>
> Hello everybody,
>
> Consider the following problem
>
> Plot3D[x + y, {y, 0, 1 - x^2}, {x, -1, 1}]
> or
> Plot3D[x + y, {x, -1, 1},{y, 0, 1 - x^2}]
>
> Both are not accepted because Mathematica demands constant limiting values
> for both x and y.
> This seems strange to me.
> Is there a way to plot a function of two variables where the limiting values
> of one depend on the other?
>
> I solved the problem by plotting
>
> ParametricPlot3D[{r Cos[t], r^2 (Sin[t])^2,r^2 (Sin[t])^2 + r Cos[t]}, {t,
> 0, \[Pi]}, {r, 0, 1}]
>
> but in general I find this to complicated.
>
> Is there a direct way?
>
> Sincerely,
>
> Frans de Boer