MathGroup Archive 2008

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

Search the Archive

Solving equations and inequalities with Reduce - how?

I tried to solve equations with Reduce and somehow did not quite 
formulate it right, so Reduce complains with 
"Reduce::ivar: 1 is not a valid variable".

This is what I tried:

Wanted: A six digit number satisfying the following conditions:
The first digit is not zero.
If you take the first two digits and move them to the end of the number, 
the resulting number must be twice the original number.

In[23]:=Reduce[200000a +20000 b +2000 c+200 d+20 e  +       2 f 
\[Equal]100000c +10000 d +1000 e+100 f+10 a  + b ,  {a,b,c,d,e,f}, 

I did solve the problem through exhaustive search:

In[14]:=Timing[Select[Range[10^6],    FractionalPart[#/10000] 1000000 + 
IntegerPart[#/10000]\[Equal] 2  #&]]
Out[14]={34.2848 Second,{142857,285714,428571}}

but would like to understand how to use Reduce (or another function) to 
solve such a set of equations.



remove bye and from mercial to get valid e-mail

  • Prev by Date: Re: Deleting Integrate[] transformation rule
  • Next by Date: Re: A Problem with Simplify
  • Previous by thread: Re: bar charts, frame ticks, and error bars
  • Next by thread: Re: Solving equations and inequalities with Reduce - how?