积分求解

Subscript[N, c] = 3
Subscript[N, F] = 2
m = 5.5
k = 651
Sigma[t_, T_, miu_] := -2*Subscript[N, c]*Subscript[N,
F]*(2 Pi*Integrate[(p^2*
Sin[a]*8/Pi^3*(p^2 + (m - 2*5.04*2*t)^2)^0.5 +
T*Log[1 + E^(-((p^2 + (m - 2*5.04*2*t)^2)^0.5 - miu)/T)] +
T*Log[1 + E^(-((p^2 + (m - 2*5.04*2*t)^2)^0.5 + miu)/T)]), {p,
0, k}, {a, 0, Pi}] + 5.04*4*t^2)
Derivative[1, 0, 0][Sigma][t, 100, 0.1]

有结果，但是计算特别慢。。。。我朋友写类似的一下子就算出来了。。。。还有我哪里出问题了吗。。。。