heitifuseguilvdeyanjiu2.m

来自「黑体辐射规律的研究 黑体辐射的规律 温度不同的普朗克黑体单色辐射能力与波长的」· M 代码 · 共 14 行

%普朗克黑体单色辐射斯特潘常数和维恩常数求法
clear                                  %清除变量
k=1.38054e-23;                         %玻尔兹曼常数
h=6.626e-34;                           %普朗克常数
c=2.997925e8;                          %光速
syms x                                 %定义符号变量
y=x^3/(exp(x)-1);                      %被积函数
i=int(y,0,inf)                         %求积分
sigma=eval(2*pi*k^4/h^3/c^2*i)         %求斯特潘常数
y=x^5/(exp(x)-1);                      %普朗克约化公式
d=diff(y)                              %求符号导数
s=solve(d)                             %求符号零解
e=eval(s)                              %求零解的数值
b=h*c/e/k                              %求维恩常数