Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

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
  • Next by thread: A Question About Directive