Re: Help Mathematica simplify this

*To*: mathgroup at smc.vnet.net*Subject*: [mg111131] Re: Help Mathematica simplify this*From*: Themis Matsoukas <tmatsoukas at me.com>*Date*: Wed, 21 Jul 2010 07:13:49 -0400 (EDT)

Here is one way: expression = Cosh[H/a] + 1/2 ((H/a - H/a Cosh[H/a] + 2 Sinh[H/a]) Sinh[ H/(2 a)])/(H/(2 a) Sinh[H/(2 a)] - 1/a); sln = Flatten[Solve[a Cosh[H/(2 a)] == 1, H]] FullSimplify[expression /. sln] Themis > Hi, > > For some reason Mathematica fails to do this: > > Assuming[ a Cosh[H/(2 a)] == 1, > FullSimplify[ > Cosh[H/a] + > 1/2 ((H/a - H/a Cosh[H/a] + 2 Sinh[H/a]) > /a]) Sinh[H/(2 a)] )/( > H/(2 a) Sinh[H/(2 a)] - 1/a)]] > > > The answer is actually 1 and I would think > Mathematica could handle > that. Is there a way to fix this? (This is a warmup > for me more > complicated problems.) > > Thanks! >