Putting Inequalities into standard Form

*To*: mathgroup at yoda.physics.unc.edu*Subject*: Putting Inequalities into standard Form*From*: Ronald D. Notestine <ronald at sccs.chukyo-u.ac.jp>*Date*: Sun, 29 May 94 23:53:07 +0900

I have a set of lenear inequalities, with one equality. The equality can be used to eliminate one variable, of course. But the resulting set of constraints is not in standard form: constants on rhs, lhs with only terms involving variables. Is there any way to put this into standard form? (Preferably, one accessible to my undergrad business students.) An example of what I have: In[1] := set0 = {x+y==2, 2x+3y<=5}; In[2] := solvey = Solve[set0[[1]], y] //First Out[2] = {y -> 2 - x} In[3] := set1 = (Rest[set0] /. solvey) //Simplify//First Out[3] = 6 - x <= 5 Of course, I want: x >= 1 The full form is: In[4] := set1 //FullForm Out[4] = LessEqual[Plus[6, Times[-1, x]], 5] I could write a function that transforms this to: GreaterEqual[Plus[0,Times[1,x]],6-5] which is just x >= 1, However, I would rather there were something built-in. Does anyone know of something? I would be very grateful, if someone did and took the time to help me out on this. Thank you very much, Ron Notestine Chukyo University Nagoya, Japan