On Thu, Mar 13, 2008 at 1:07 PM, Barton Willis <willisb at unk.edu> wrote:
> (%i5) subst(lambda([s], exponentialize(sinh(s))), sinh, %o3);
> (%o5) (sin(x)*(%e^(y^2+x^2)-%e^(-y^2-x^2)))/2
This doesn't work in general, e.g.
subst(lambda([s], exponentialize(sinh(s))), sinh, sinh(sin(x)))
=> (%e^-(%i*(%e^(%i*x)-%e^-(%i*x))/2)-%e^(%i*(%e^(%i*x)-%e^-(%i*x))/2))/2
You need something like
subst(lambda([s], ''(exponentialize(sinh('s)))), sinh, expr)
-s