Find the maximum of Planck's radiation function

ตัวอย่าง 2 ขั้นตอน รันตามลำดับในหนึ่งเซสชัน ทุกขั้นถูกรันกับเอนจินจริง และเอาต์พุตด้านล่างคือสิ่งที่มันให้

ขั้นที่ 1

P = (15/π^4 (x^5 (Exp[(1/x)] - 1)));
{max, val} = Maximize[{P, x ≥ 0}, x]

เอาต์พุต

{Infinity, {x -> Infinity}}

ขั้นที่ 2

Plot[P, {x, 0, 1}, Epilog -> {Red, PointSize[0.025], Point[{x /. val, max}]}]

เอาต์พุต

-Graphics-

ฟังก์ชันที่ใช้