Re: Question
- To: mathgroup at smc.vnet.net
- Subject: [mg110244] Re: Question
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Thu, 10 Jun 2010 08:07:43 -0400 (EDT)
- Reply-to: hanlonr at cox.net
var = ToExpression[
Table["x" <> ToString[k], {k, 4}]]
{x1,x2,x3,x4}
Reduce[
Join[
Thread[0 < var < 10],
{Total@var == 12, Times @@ var == 36, Less @@ var}],
var, Integers] // ToRules
{x1->1,x2->2,x3->3,x4->6}
However, it is much easier to use indexed variables programmatically
var = Array[x, 4]
{x(1),x(2),x(3),x(4)}
Reduce[
Join[
Thread[0 < var < 10],
{Total@var == 12, Times @@ var == 36, Less @@ var}],
var, Integers] // ToRules
{x(1)->1,x(2)->2,x(3)->3,x(4)->6}
Bob Hanlon
---- David Lengacher <dclengacher at gmail.com> wrote:
=============
How can you create a set of variables: x1 to xn using the Table, or some
similar function? I need a large list of variables to use in a linear
program and so far have to type them out manually.
David