MathGroup Archive 1997

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

Search the Archive

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


  • Prev by Date: Re: Font/option problem?
  • Next by Date: Re: Outer solutions of Findminimum
  • Previous by thread: Re: Graphing Inequalities
  • Next by thread: Re: Graphing Inequalities