Re: Plot equations and inequalities together

*To*: mathgroup at smc.vnet.net*Subject*: [mg65303] Re: Plot equations and inequalities together*From*: "hanspi" <hanspi at schmid-werren.ch>*Date*: Sat, 25 Mar 2006 05:17:38 -0500 (EST)*References*: <e0020g$plk$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

I would write y==15 as Abs[y-15] < 0.1 or another small number of your choice that looks good on the resulting plot. InequalityPlot[(Abs[x - 5] < 0.1 && Abs[y - 10] < 0.1) || (x > 5 && Abs[y - 5] < 0.1), {x, 0, 10}, {y, 0, 20}] Kind regards, Hanspeter