       Re: Problem with ContourPlot3D

• To: mathgroup at smc.vnet.net
• Subject: [mg106992] Re: [mg106975] Problem with ContourPlot3D
• From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
• Date: Sun, 31 Jan 2010 05:55:38 -0500 (EST)
• References: <201001301211.HAA25117@smc.vnet.net>

```Hi,

you want the contour 0==y^2-Cos[x]/(4x+z).
When is the left hand side zero and are there points that are not valid?

expr = Together[y^2 - Cos[x]/(4 x + z)]
{num, den} = {Numerator[#], Denominator[#]} &[expr]
ContourPlot3D[num, {x, -5, 5}, {y, -5, 5}, {z, 0, 10},
Contours -> {0},
RegionFunction -> Function[{x, y, z}, Abs[den] > 0.001]]

Cheers
Patrick

On Sat, 2010-01-30 at 07:11 -0500, Dominic wrote:
> Hi.
>
> I'm unable to obtain a clean plot of this DE solution:
>
> ContourPlot3D[y^2 == Cos[x]/(4*x + z),
> {x, -5, 5}, {y, -5, 5}, {z, 0, 10}]
>
> If I specify PlotPoints->50, Mathematica crashes.  If I try
> MaxRecursion->4, it also locks up.  The command above does produce a
> plot but it's jagged and has an "extraneous sheet" between the two
> sections of the plot.  Any way to get a nicer plot?
>
> Thanks,
>
> Dominic
>
>

```

• Prev by Date: Re: position of sequence of numbers in list
• Next by Date: Partition prime list into equal k sublists. How to write code for
• Previous by thread: Problem with ContourPlot3D
• Next by thread: Re: Problem with ContourPlot3D