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}]}]