Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

Re: integer solution

  • To: mathgroup at smc.vnet.net
  • Subject: [mg62023] Re: integer solution
  • From: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>
  • Date: Wed, 9 Nov 2005 03:45:50 -0500 (EST)
  • References: <dkpokt$rcd$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Reduce[s + d + t + q == 10 && 6*s + 3*d + 2*t + q == 30 && s > 0 && d > 0 && 
t > 0 && q > 0, {s, d, t, q},  Integers]

(s == 1 && d == 7 && t == 1 && q == 1) || (s == 2 && d == 3 && t == 4 && q 
== 1) ||
  (s == 2 && d == 4 && t == 2 && q == 2) || (s == 3 && d == 1 && t == 3 && q 
== 3) ||
  (s == 3 && d == 2 && t == 1 && q == 4)

Steve Luttrell

"bd satish" <bdsatish at gmail.com> wrote in message 
news:dkpokt$rcd$1 at smc.vnet.net...
>
> I want to find the integral solutions of the following two equations:
>   s + d + t+q =10 ; # two equations
>  6s + 3d + 2t + q = 30 ; # 4 unknowns
>  I want only those solutions for which
>  s>0 d>0 t>0 q>0
> 



  • Prev by Date: Re: integer solution
  • Next by Date: Reals and Equal
  • Previous by thread: Re: integer solution
  • Next by thread: Re: integer solution