// Scilab code: Ex3.3 : Momentum of photon: Pg: 78 (2008)
h = 6.624e-034;    // Planck's constant, J-s
L = 6e-07;    // wavelength of photon, m
M = h/L;    // Momentum of photon, kg-m/s
printf("\nThe momentum of photon = %5.3e kg-m/s", M);
// Result
// The momentum of photon = 1.104e-027 kg-m/s