MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Problem with ContourPlot3D


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