MathGroup Archive 2011

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

Search the Archive

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] },


  • Prev by Date: Re: count zeros in a number
  • Next by Date: How to pass initial conditions to IDA methods via NDSolve?
  • Previous by thread: Re: Solve - takes very long time
  • Next by thread: Re: Solve - takes very long time