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!
>