Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: solving a set of inequalities

  • To: mathgroup at smc.vnet.net
  • Subject: [mg65934] Re: [mg65910] solving a set of inequalities
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Mon, 24 Apr 2006 06:01:36 -0400 (EDT)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com

eqns={3*a+5*b+9*c>6*a+6*b+8*c,
      3*a+5*b+9*c>a+5*b+12*c,
      x+y+z==1};

Reduce[eqns, Reals]

a > (3*c)/2 && b < c - 3*a && x == -y - z + 1

Perhaps the last equation also was intended to relate a, b, and c

eqns={3*a+5*b+9*c>6*a+6*b+8*c,
      3*a+5*b+9*c>a+5*b+12*c,
      a+b+c==1};

Reduce[eqns, Reals]

c < -1 && (1/2)*(3 - 4*c) < b < (1/2)*(2 - 5*c) && 
  a == -b - c + 1


Bob Hanlon

> 
> From: reiro <reir at no.email.com>
To: mathgroup at smc.vnet.net
> Subject: [mg65934] [mg65910]  solving a set of inequalities
> 
> I'll be grateful if you tell me how to solve this set of inequalities in  
> mathematica. I've been looking in the help file but it returns an error  
> and I don't know how to sort it oout.
> 
> I need to solve this set:
> 
> 3*a + 5*b + 9*c > 6*a + 6*b + 8*c
> 3*a + 5*b + 9*c > a + 5*b + 12*c
> x + y + z = 1
> 
> 


  • Prev by Date: Re: How to extract functions from a list and call them with any argument?
  • Next by Date: Re: How to extract functions from a list and call them with any argument?
  • Previous by thread: Re: solving a set of inequalities
  • Next by thread: Re: solving a set of inequalities