In[8]:= Abs[(4*k1*k2*Exp[I*k1*d])/(
4*k1*k2*Cos[k2*d] - 2*I*(k1^2 + k2^2)*Sin[k2*d])]
Out[8]= 4 E^-Im[d k1] Abs[(k1 k2)/(
4 k1 k2 Cos[d k2] - 2 I (k1^2 + k2^2) Sin[d k2])]
In[9]:= ComplexExpand[
4 E^-Im[d k1] Abs[(k1 k2)/(
4 k1 k2 Cos[d k2] - 2 I (k1^2 + k2^2) Sin[d k2])]]
Out[9]= (4 Sqrt[k1^2] Sqrt[k2^2])/Sqrt[
16 k1^2 k2^2 Cos[d k2]^2 + 4 (k1^2 + k2^2)^2 Sin[d k2]^2]
楼主刚学，看了半天帮助文档也没明白，上面那个指数函数为啥求模量就变成虚部然后没了。

Out[8]里面的4 E^-Im[d k1]是实数,Abs[...]也是实数,完全正确的,只是K1,K2等不确定是否实数,所以Abs无法化简,但是后面的ComplexExpand把所有变量当做实数(不一定符合实际),才把Abs化简