de-exponentialize



> (C49) exponentialize(tanh(x));
>                                   x     - x
>                                 %E  - %E
> (D49)                           -----------
>                                   x     - x
>                                 %E  + %E
> Is there a command for the inverse operation?

Here's a useful trick:

   subst(x/%i,x,demoivre(subst(x*%i,x,expr)))

This gives you sinh(x)/cosh(x).  I'm not sure if there is any standard
way to get sin(h)/cos(h) to simplify to tan(h).

     -s