I was reading Wikipedia article about Planck's Law and I wanted to make the same graph as here. I took this equation $$ B(\nu,T)=\frac{2h\nu^3}{c^2}\frac{1}{e^{\frac{h\nu}{kT}}-1}$$
but I got different graphs. Maximum is shifted. For example, in Wikipedia maximum for 5000K is around 0.5-0.6$\mu m$, but I got maximum for 5000K at 1$\mu m$. My graph is below:
I used this Wolfram Mathematic program below to build this graph.
kV = 1.380649*10^(-23);
hV = 6.62607015*10^(-34);
cV = 299792458;
f[l_] = cV/l/10^(-6);(*Convert Wave Length to Frequency*)
Bf[f_, T_] = 2*hV*f^3/cV^2*1/(Exp[(hV*f)/(kV*T)] - 1);
Plot[{Bf[f[l], 5000], Bf[f[l], 4000], Bf[f[l], 3000]},
{l, 0.3, 2},
PlotStyle -> {Blue, Green, Red},
PlotLegends -> {"5000K", "4000K", "3000K"},
ImageSize -> 800]
My question is what am I doing wrong and why I am getting a different maximum?
UPDATE 1.
I removed $\mu m$ conversion to have everything in the same SI units.
kV = 1.380649*10^(-23);
hV = 6.62607015*10^(-34);
cV = 299792458;
f[l_] = cV/l;
Bf[f_, T_] = 2*hV*f^3/cV^2*1/(Exp[(hV*f)/(kV*T)] - 1)
Plot[{Bf[f[l], 5000], Bf[f[l], 4000], Bf[f[l], 3000]},
{l, 0.310^(-6), 210^(-6)},
PlotStyle -> {Blue, Green, Red},
PlotLegends -> {"5000K", "4000K", "3000K"},
ImageSize -> 800]