mathematica的计算结果化简

用过Simplify , FullSinplify , TrigReduce ,都达不到想要的效果，根号里面进行计算，然后利用双曲函数恒等式，结果就是1，但它没有按我想的往下计算，应该怎么处理？

你好，同学，请设定在实数范围内化简：

FullSimplify[expression, Element[r, Reals]]

matlab 做这个就很简单

>> syms r real %定r为实数范围
>> q = sqrt(cosh(2*r)-sinh(2*r))*sqrt(sinh(2*r)+cosh(2*r));
>> simplify(q)
 
ans =
 
1