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