Re: Solve problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg98138] Re: Solve problem*From*: "Bruno Campanini" <BC at gmail.com>*Date*: Tue, 31 Mar 2009 04:18:16 -0500 (EST)*References*: <gqkv3d$4f6$1@smc.vnet.net>

"Bob Hanlon" <hanlonr at cox.net> wrote in message news:gqkv3d$4f6$1 at smc.vnet.net... > a1 /. Select[{{b1 -> -2, a1 -> -1}, {b1 -> 0.5, a1 -> 3}}, > (a1 /. #) > 0 &] > > {3} > > Cases[{{b1 -> -2, a1 -> -1}, {b1 -> 0.5, a1 -> 3}}, > (a1 -> x_ /; x > 0) :> x, Infinity] > > {3} > > Or instead of using Solve use Reduce and include constraint on a1 Ok Bob. Thank you and thank all the people that gave me such useful info. Bruno