Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Re: Graphing Inequalities

• To: mathgroup at smc.vnet.net
• Subject: [mg9864] Re: [mg9783] Re: [mg9724] Graphing Inequalities
• From: Allan Hayes <hay at haystack.demon.co.uk>
• Date: Sat, 29 Nov 1997 00:10:54 -0500
• References: <199711281034.FAA10648@smc.vnet.net.>
• Sender: owner-wri-mathgroup at wolfram.com

[mg9783] Re: [mg9724] Graphing Inequalities
 Geza I. Mark wrote

> this works:
> 
> ContourPlot[ If[ y > x && y < x^2, 1, 0 ], {x,0,5}, {y,0,5},
>    Contours->1, ContourLines->True, ContourSmoothing->True,
>    PlotPoints->100
> ]
> 
> but the contour line is ugly (sawtooth like). Why?

Geza:

Maybe  0/1 valued functions are not be very helpful, Since a>0 && b>0 
is equivalent to  Min[a,b]>0  try the following (the contour at height
0 is drawn; the options ContourLines ->True and ContourSmoothing->True
are defaults)
				

ContourPlot[ Min[ y -x ,x^2- y ], {x,0,5}, {y,0,5},
   Contours->{0},   PlotPoints->100
]

- seems better here.

-- 
Allan Hayes
Mathematica Training and Consulting
Leicester, UK
hay at haystack.demon.co.uk
http://www.haystack.demon.co.uk
voice: +44 (0)116 271 4198
fax: +44 (0)116 271 4198

• References:
  • Re: Graphing Inequalities
    • From: mark@sunserv.kfki.hu (Geza I. Mark)