gistfile1.fs

module Photon

    [<Measure>]
    type m // meter

    [<Measure>]
    type s // second

    [<Measure>]
    type J // Joule

    let h = 6.62606896e-34<J/s>
    let c = 2.99792458e8<m/s>

    let EnergyByWavelength lambda multiplier = (h * c) / (lambda * multiplier)
    let EnergyByFrequency (nu, multiplier) = h * (nu * multiplier)


namespace Math

    type Photon = 

        member x.h = 6.62606896e-34
        member x.c = 2.99792458e8

        member x.EnergyByWavelength lambda multiplier = (x.h * x.c) / (lambda * multiplier)
        member x.EnergyByFrequency (nu, multiplier) = x.h * (nu * multiplier)