RE: How can solue the inequation system in mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg34758] RE: [mg34728] How can solue the inequation system in mathematica
- From: "DrBob" <majort at cox-internet.com>
- Date: Wed, 5 Jun 2002 03:38:16 -0400 (EDT)
- Reply-to: <drbob at bigfoot.com>
- Sender: owner-wri-mathgroup at wolfram.com
Here's a little code and a plot to get you started: Needs["Graphics`InequalityGraphics`"] ineq = {2*x^3 + y^ +1 > 0, 5*x^2 - y^2 + 5 < 0}; eqns = {x, y /. #} & /@ Flatten[Solve[#, y] & /@ (ineq /. {Greater -> Equal, Less -> Equal})] xRange = {x, -10, 10}; yRange = {y, -20, 20}; Show[{ ParametricPlot[Evaluate[eqns], Evaluate[xRange], DisplayFunction -> Identity], InequalityPlot[ineq, Evaluate[xRange], Evaluate[yRange], DisplayFunction -> Identity]}, PlotRange -> {Rest[xRange], Rest[yRange]}, ImageSize -> 400, DisplayFunction -> $DisplayFunction] One issue you face is "What does a solution look like?" A picture? A dichotomy of the solution set? If the latter, you can find intersections of the equality curves and, based on those, state the solution set in y for each range of x values (or in x for each range of y values). Bobby Treat -----Original Message----- From: DrBob [mailto:majort at cox-internet.com] To: mathgroup at smc.vnet.net Subject: [mg34758] RE: [mg34728] How can solue the inequation system in mathematica Check out the InequalityGraphics package (Addons>Standard Packages>Graphics>InequalityGraphics in Help), and you can also try InequalityInstance in the Developer package. I think you'll have to figure it out yourself, with Mathematica's help. For instance, in the problem you've listed below, you can fix x and solve the corresponding equations for y, and figure out from that what range of y values are feasible for that x. You can do the similar thing fixing x and solving for y. You might even make it fairly automatic, as InequalityGraphics has done. Bobby -----Original Message----- From: MailPhys [mailto:physics.nsu at bdvn.vnd.net] To: mathgroup at smc.vnet.net Subject: [mg34758] [mg34728] How can solue the inequation system in mathematica Dear friends This my question. How can I solve the Inequation system in mathematica. I haven't seen any command for that for example 2*x^3 +y^ +1 >0 5*x^2 -y^2+5<0 If you know that , please point out to me Thank you