Re: Re: Two questions (1) Sollve and (2) Precision
- To: mathgroup at smc.vnet.net
- Subject: [mg67084] Re: [mg67043] Re: Two questions (1) Sollve and (2) Precision
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Fri, 9 Jun 2006 01:07:09 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
Force use of exact methods by rationalizing the coefficients.
eqns={64919121*x-159018721*y==1,
41869520.5*x-102558961*y==0}//Rationalize;
soln=Solve[eqns,{x,y}]//Flatten
{x -> 205117922, y -> 83739041}
Bob Hanlon
---- Bharat Bhole <bbhole at gmail.com> wrote:
>
> Hello All:
>
> Thank you for those who replied. I will try your suggestions. However, there
> seems to be one problem in the Solve problem I posted. I originally wrote
> the equation as
>
> 64919121*x-159018721*y ==1 and 41869520.5*x-102558961*y == 0
>
> but in your responses I see that it has changed to "=8A1" and "=8A0"
> respectively (without the quotes). I wonder why? So as far as entering the
> equation is concerned, it had been entered correctly.
>
> I am surprised that it is working out well for Jean-Marc Gulliet. Does this
> mean there is something wrong with my computer. I am also using Mathematica
> version 5.2.
>
> I will try again. It is still unclear why its not working on my computer.
>
>
> On 6/6/06, Bharat Bhole <bbhole at gmail.com> wrote:
> >
> > Would appreciate if someone can point out why Mathematica is not giving
> > the expected output in the followng two cases.
> >
> > (1) I was trying to solve the follwing two linear equations using 'Solve'.
> >
> >
> > *In: Solve[{64919121*x-159018721*y=8A1,41869520.5*x-102558961*y=8A0},{x,y}]*
> >
> > *Out: {}*
> >
> > However, the solution exists and is given by x = 205117922, y = 83739041
> >
> > Why is Mathematica unable to solve this simple linear equation? Am I doing
> > something wrong?
> >
> >
> >
> > (2) I suppose that the default precision for numerical calculations is
> > MachinePrecision which is less than 16. If I increase the precision, should
> > I not get more accurate results? The example below seems to contradict that.
> >
> >
> > (i) Exact Calculation
> >
> > *In[1]: 123456789123 * 123456789123*
> >
> > *Out[1]: 15241578780560891109129*
> >
> > (ii) Numerical Calculation with Default Precision
> >
> > *In[2]: 123456789123 * 123456789123.0*
> >
> > *Out[2]: 1.52416 =D7 10^22*
> >
> > (iii) Numerical Calcuation with a higher precision.
> >
> > *In[3]:SetPrecision[ 123456789123 * 123456789123.0 , 50 ]*
> >
> > *Out[3]: 1.5241578780560891838464000000000000000000000000000 x 10^22*
> >
> > Now if I calculate Out[1]-Out[2], I get zero.
> >
> > But if I calculate Out[1]-Out[3], I get -
> > 729335.000000000000000000000000000.
> >
> > This seems to suggest that calculation 2 is more accurate even though it
> > has smaller precision. Where am I making a mistake?
> >
> > Thanks very much for your help.
> >
>
>
--
Bob Hanlon
hanlonr at cox.net