MathGroup Archive 2003

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

Search the Archive

RE: This should evaluate to zero

  • To: mathgroup at smc.vnet.net
  • Subject: [mg39960] RE: [mg39926] This should evaluate to zero
  • From: "David Park" <djmp at earthlink.net>
  • Date: Thu, 13 Mar 2003 03:02:38 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

jf,

Mathematica doesn't simplify because there are multiple solutions.

You could do this..

ArcSinh[1] - Log[3363 + 2378*Sqrt[2]]/10 // N
0.

But if you want to work with exact numbers do the following...

ArcSinh[1] - Log[3363 + 2378*Sqrt[2]]/10
TrigToExp[%]
% /. Log[a_] + b_*Log[c_] -> Log[a*c^b]

giving

ArcSinh[1] - (1/10)*Log[3363 + 2378*Sqrt[2]]
Log[1 + Sqrt[2]] - (1/10)*Log[3363 + 2378*Sqrt[2]]
Log[(1 + Sqrt[2])/(3363 + 2378*Sqrt[2])^(1/10)]

Then it is clear that we have to find the 10th root of the denominator. It
turns out there are two real roots and only one positive real root. We can
select that and substitute with the following statement...

sols = First[Select[Solve[z^10 == 3363 + 2378*Sqrt[2]],
    With[{x = #1[[1,2]]}, Im[x] == 0 && Re[x] > 0] & ]]
Log[(1 + Sqrt[2])/z] /. sols

{z -> 1 + Sqrt[2]}
0

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/


From: jf alcover [mailto:jf.alcover at bdpme.fr]
To: mathgroup at smc.vnet.net

Bonjour,
Methinks that the following expression should evaluate to zero,
but it does not, even with FullSimplify :
    ArcSinh[1]-Log[3363+2378*Sqrt[2]]/10
Could anyone explain ?



  • Prev by Date: Re: What's legit here?
  • Next by Date: Re: Calling Install[] from packages
  • Previous by thread: RE: This should evaluate to zero
  • Next by thread: Re: This should evaluate to zero