Question

Mathematica中用这样定义函数的方法为什么画不出图像？

h = 6.63*10^-34 ;
K = 1.38*10^-23;
t1[t_] := (300 + t/2);
t2[t_] := (300 - t/2);
c1[t1_] :=
Integrate[
0.4*0.4 (1/(E^(x/(K*t1)) + 1) -
1/(E^((x + 30)/(K*t1)) + 1)), {x, -\[Infinity], \[Infinity]}];
c2[t2_] :=
Integrate[
0.4*0.4 (1/(E^(x/(K*t2)) + 1) -
1/(E^((x + 30)/(K*t2)) + 1)), {x, -\[Infinity], \[Infinity]}];
n1[t1_] := 1/(E^(30/(K*t1)) - 1);
n2[t2_] := 1/(E^(30/(K*t2)) - 1);
DiscretePlot[(2*\[Pi]/h)*10000*c1*
c2 (n1 - n2)/(100*c1*(1 + 2*n1) +
100 c2*(1 + 2*n2)), {t, -200, +200, 20}]
不胜感激，加分感激！

若以下回答无法解决问题，邀请你更新回答

Answer 1

程序的部分结果你看过没？你的c1那个积分单独计算mma提示不收敛了。物理模型吗？

追问

嗯，那个积分里我少考虑了一个阶跃函数，请问这样定义函数然后迭代到最后的PLOT里以T为自变量理论上可以这样画图吗？谢谢