WOLFRAM

Wolfram 语言与系统参考资料中心

求普朗克辐射函数的最大值

Maximize 得出全域的最大值：
Wolfram Language code: P = (15/π^4 (x^5 (Exp[(1/x)] - 1))); {max, val} = Maximize[{P, x ≥ 0}, x]
Wolfram Language code: Plot[P, {x, 0, 1}, Epilog -> {Red, PointSize[0.025], Point[{x /. val, max}]}]