Re: Limiting the results

*To*: mathgroup at smc.vnet.net*Subject*: [mg40047] Re: Limiting the results*From*: bobhanlon at aol.com (Bob Hanlon)*Date*: Mon, 17 Mar 2003 03:34:31 -0500 (EST)*References*: <b51a67$336$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Needs["Algebra`InequalitySolve`"]; InequalitySolve[{x==y/3, 0<=x<=9, 0<=y<=9}, {x, y}] 0â?¤xâ?¤3&&y==3 x Using only 0 <= x <= 3, Table[{x, y /.Solve[x==y/3, y][[1]]}, {x, 0, 3}] {{0,0},{1,3},{2,6},{3,9}} Using both, Table[{x, 3x}, {x, 0, 3}] {{0,0},{1,3},{2,6},{3,9}} Brute force method: Select[Flatten[ Outer[List,Range[0,3], Range[0,9,3]],1], #[[1]]==#[[2]]/3&] {{0,0},{1,3},{2,6},{3,9}} Bob Hanlon In article <b51a67$336$1 at smc.vnet.net>, GeRaLt <mistrzpc at spam.pl> wrote: << Subject: Limiting the results From: GeRaLt <mistrzpc at spam.pl> To: mathgroup at smc.vnet.net Date: Sun, 16 Mar 2003 07:47:19 +0000 (UTC) Equation: x=y/3 and i want both variables to be for example digits (integers 0,1...9) How to solve it? (so that it returns pairs (0,0),(1,3),(2,6),(3,9)) >>