Re: FullSimplify on Hyperbolic Functions

*To*: mathgroup at smc.vnet.net*Subject*: [mg53389] Re: [mg53383] FullSimplify on Hyperbolic Functions*From*: Andrzej Kozlowski <akoz at mimuw.edu.pl>*Date*: Sun, 9 Jan 2005 23:03:40 -0500 (EST)*References*: <200501090402.XAA12451@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

The reasons why some of these do not work have already been explained before: basically they are that FullSimplify when using certain transformations functions, cannot use assumptions during the intermediate steps and also that certain transformation functions only "proceed in one direction". In particular this means that you often need to use explicitly ComplexExpand or TrigToExp with FullSimplify. This is one of such cases: In[1]:= r1 = ArcCosh[1 + b^2/2]; r2 = 2*ArcSinh[b/2]; In[3]:= FullSimplify[ComplexExpand[ r1 - r2], b > 0] Out[3]= 0 However, this is more tricky: In[4]:= FullSimplify[ComplexExpand[ r1^2 - r2^2], b > 0] Out[4]= -4*Log[(1/2)*(b + Sqrt[ 4 + b^2])]^2 + Log[(1/2)*(2 + b*(b + Sqrt[4 + b^2]))]^2 The problem seems to be again that FullSimplify does not try certain transformations that go in the "opposite direction" to what it normally does, but without which it can't see the cancellations. You can make it see them by forcing expansion of terms: FullSimplify[FunctionExpand[ComplexExpand[r1^2-r2^2],b>0],b>0] 0 This is actually an interesting case because it shows a use of FunctionExpand with assumptions in cases where FullSimplify with assumptions is alone not sufficient. Also note that ComplexExpand performs better than TrigToExp here. Of course if you make the expression even more complicated it will get harder and harder for Mathematica to reduce it and at some point it will become completely impossible. This isn't really surprising, is it? Andrzej Kozlowski On 9 Jan 2005, at 05:02, carlos at colorado.edu wrote: > Obviously ArcCosh[1+b^2/2]=2 ArcSinh[b/2] if b>=0. Here are > 4 variations on trying to show it by FullSimplify: > > ClearAll[b]; r1=ArcCosh[1+b^2/2]; r2=2*ArcSinh[b/2]; > > Print[FullSimplify[r1-r2,b>=0]//InputForm]; > ArcCosh[1 + b^2/2] - 2*ArcSinh[b/2] > > Print[FullSimplify[TrigToExp[r1-r2],b>=0]//InputForm]; > 0 > > Print[FullSimplify[r1^2-r2^2,b>=0]//InputForm]; > ArcCosh[1 + b^2/2]^2 - 4*ArcSinh[b/2]^2 > > Print[FullSimplify[TrigToExp[r1^2-r2^2],b>=0]//InputForm]; > -4*Log[(b + Sqrt[4 + b^2])/2]^2 + Log[(2 + b*(b + Sqrt[4 + b^2]))/2]^2 > Why only the second one works? >

**References**:**FullSimplify on Hyperbolic Functions***From:*carlos@colorado.edu