Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: "Reduce" returns repeated solutions!

• To: mathgroup at smc.vnet.net
• Subject: [mg46348] Re: [mg46333] "Reduce" returns repeated solutions!
• From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
• Date: Mon, 16 Feb 2004 08:59:49 -0500 (EST)
• References: <200402150319.WAA06255@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

On 15 Feb 2004, at 04:19, Pedro L wrote:

> Hello mathgroup,
>
>
> I would like to know why when I write:
>
> Reduce[(x >= y \[Implies] 2x <= 3y) && Abs[x] < 5 && Abs[y] < 5, {x,
>     y}, Integers]
> I obtain repeated solutions.
>
>
>
> I obtain a lot of solutions like: x == -4 && y == -3 ...
>
> But many of them appear repeated.
> In this case I obtain   x == -4 && y == -1    two times.
>
> How do you "simplify" the list of solutions?
>
> Thanks in advance.
>
> Pedro L.  (Spain)
>
>
You can use Union


Length[l = Reduce[Implies[x >= y, 2*x <= 3*y] &&
      Abs[x] < 5 && Abs[y] < 5, {x, y}, Integers]]

78

Length[Union[l]]


43

or  Simplify:


Length[Simplify[l]]


43


Andrzej Kozlowski
Chiba, Japan
http://www.mimuw.edu.pl/~akoz/

• References:
  • "Reduce" returns repeated solutions!
    • From: Pedro L <pedrito6@softhome.net>