Re: Solve - takes very long time
- To: mathgroup at smc.vnet.net
- Subject: [mg121825] Re: Solve - takes very long time
- From: Chris Arthur <chris.arthur1 at gmail.com>
- Date: Tue, 4 Oct 2011 01:31:15 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
Subscripts aren't variables. For x_2, the format is better just to
use x2 for Mathematica.
The system would look better as below, but it won't run in Mathematica.
Solve[
{100*Subscript[x, 2] + 10*Subscript[x, 1] + Subscript[x, 0] +
100*Subscript[y, 2] + 10*Subscript[y, 1] + Subscript[y, 0] ==
100*Subscript[z, 2] + 10*Subscript[z, 1] + Subscript[z, 0],
Subscript[x, 0] > 0, Subscript[y, 0] > 0, Subscript[z, 0] > 0,
Subscript[x, 1] > 0, Subscript[y, 1] > 0, Subscript[z, 1] > 0,
Subscript[x, 2] > 0, Subscript[y, 2] > 0, Subscript[z, 2] > 0,
Subscript[x, 0] <= 9, Subscript[y, 0] <= 9, Subscript[z, 0] <= 9,
Subscript[x, 1] <= 9, Subscript[y, 1] <= 9, Subscript[z, 1] <= 9,
Subscript[x, 2] <= 9, Subscript[y, 2] <= 9, Subscript[z, 2] <= 9,
Subscript[x, 0] != Subscript[y, 0] != Subscript[z, 0] != Subscript[
x, 1] != Subscript[y, 1] != Subscript[z, 1] != Subscript[x, 2] !=
Subscript[y, 2] != Subscript[z, 2]},
{Subscript[x, 2], Subscript[y, 2], Subscript[z, 2], Subscript[x, 1],
Subscript[y, 1], Subscript[z, 1], Subscript[x, 0], Subscript[y, 0],
Subscript[z, 0] },