Re: help: how do you solve a less-or-equal equation
- To: mathgroup at smc.vnet.net
- Subject: [mg31010] Re: [mg31001] help: how do you solve a less-or-equal equation
- From: BobHanlon at aol.com
- Date: Tue, 2 Oct 2001 01:20:45 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 2001/10/1 3:26:39 AM, kroosu at tref.nl writes:
>i'm trying the mathematica demo by doing some basic mathematics.
>
>at the moment i'm having problems with a less-or-equal equation.
>Solve[a <= b,x] (with a and b as functions of x) gives an error,
>saying it's not a well-formed equation.
>appearently Solve cant handle the less-than sign.
>how do you solve an equation like this in mathematica?
>
>and can i assign the value to the variable automaticly?
>
a[x_] := 7x^2-6x+4;
b[x_] := 6x^2-3x+2;
Plot[{a[x]-b[x]}, {x, 0, 2.5}];
Solve[a[x]-b[x]==0, x]
{{x -> 1}, {x -> 2}}
x /. %
{1, 2}
Needs["Graphics`InequalityGraphics`"];
InequalityPlot[{a[x]-b[x] <= y <=0}, {x, 0, 3}, {y, -1, 1},
ImageSize == 300];
Needs["Algebra`InequalitySolve`"];
InequalitySolve[a[x]-b[x] <= 0, x]
1 <= x <= 2
{%[[1]], %[[5]]}
{1, 2}
Cases[%%, _?NumericQ]
{1, 2}
Bob Hanlon
Chantilly, VA USA