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

```

• Prev by Date: Re: Very very basic question about Mathematica expressions
• Next by Date: Re: A Question About Directive
• Previous by thread: Help Mathematica simplify this