New in Wolfram Mathematica 7: Transcendental Roots  previous | next 
Find the Maximum of Planck's Radiation Function
Compute the maximum of Planck's radiation function.
In[1]:=

Click for copyable input
P = 15/(\[Pi]^4 (x^5 (Exp[1/x] - 1)));

{max, val} = Maximize[{P, x >= 0}, x]
Out[1]=



In[2]:=

Click for copyable input
Plot[P, {x, 0, 1}, 

 Epilog -> {Red, PointSize[0.025], Point[{x /. val, max}]}]
Out[2]=