A[x_] :=NIntegrate[t^3/(Exp[t] - 1), {t, 0, x}] *定义函数,*
data1 = Table[{A[x], x}, {x, 0.001, 3, 0.02}] *取值, 0.001~3, 间隔0.02.*
ListPlot[data1] *做图*
也可用
A[x_] :=Integrate[t^3/(Exp[t] - 1), {t, 0, x}]
data1 = Table[{Re[A[x]], x}, {x, 0.001, 3, 0.02}]
ListPlot[data1] |