New answers tagged

2

TD = 200; Debye[x_] := 3 (x/TD)^3 Integrate[y^3/(Exp[y] - 1), {y, 0, TD/x}, Assumptions -> x > 0] Fa[x_] := 8.6173324*10^(-5) x (9*TD/(8 x) + 3 Log[1 - Exp[-TD/x]] - Debye[x]) ser = Series[Fa[x], {x, 0, 1}] // Normal (* 0.00025852 x Log[1 - E^(-200/x)]*) Plot[ser, {x, 1, 100}]



Top 50 recent answers are included