Photon Energies

Calculate the frequency, wavelength, and photon energies for various common forms of electromagnetic radiation.

h = Quantity[1, "PlanckConstant"];
c = Quantity[1, "SpeedOfLight"];

finfo[ff_] := Module[{ λλ, Ep},
λλ = UnitConvert[c/ff, "Meters"];
Ep = UnitConvert[h ff, "Electronvolts"];
StringForm["f = ``, λ = ``, E_photon = ``", UnitConvert[f, "Hertz"], λ, Ephoton];
{f ->  UnitConvert[ff, "Hertz"], λ -> λλ, Ephoton -> Ep}]

λinfo[λ_] := finfo[Quantity[1, "SpeedOfLigth"]/λ]

Red laser pointer.

info = λinfo[Quantity[655., "Nanometers"]]

p = Quantity[0.24, "Milliwatts"];

UnitConvert[p / Ephoton, 1/"Seconds"] /. info

Cell phone

finfo[Quantity[1.9, "Gigahertz"]]

Visible Light

λinfo[Quantity[400., "Nanometers"]]

λinfo[Quantity[700., "Nanometers"]]

X-rays

λinfo[Quantity[0.3, "Nanometers"]]