*To*: mathgroup@smc.vnet.net*Subject*: [mg11151] RE: [mg11115] Help*From*: BobHanlon@aol.com*Date*: Mon, 23 Feb 1998 21:41:10 -0500

soln ={{a -> 32}, {a -> -22}, {a -> 49}}; To get the substitution rules with positive values, do the following: Select[soln, (a /. #) > 0&] {{a -> 32}, {a -> 49}} If all you want are the positive values themselves, then use: Select[a /. soln, # > 0&] {32, 49} Bob Hanlon FORWARDED MESSAGE: I have 3 solutions for a which are {a -> 32, a -> -22, a -> 49}. I want to use the positive answer to sub in a folowing equation. The code that I wrote is aList = Re[Last/@Flatten[%]]; aList = Select[%, #>0 &];*) For[ m = 1, m < size, m++, aList[[m]] ]; Howver, it doesnt seem to work the way I want. Thanks Colin