Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Complete interrupted work on Wien's displacement law.

  • Loading branch information...
commit 64ae8f19ba77c6f9a4b1292581112e6e0609de0c 1 parent aeb60b3
@bjornbm authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 Numeric/Units/Dimensional/Formulae.hs
View
4 Numeric/Units/Dimensional/Formulae.hs
@@ -76,8 +76,8 @@ wiensDisplacementLaw t = b / t where b = 2.8977721e-3 *~ (meter * kelvin)
-- Uncertainty: 26
-- | Wien's displacement law in terms of frequency rather than wavelength.
-wiensDisplacementLaw' :: Floating a => ThermodynamicTemperature a -> Length a
-wiensDisplacementLaw' t = t * b' where b' = 5.8789254e10 (hertz / kelvin)
+wiensDisplacementLaw' :: Floating a => ThermodynamicTemperature a -> Frequency a
+wiensDisplacementLaw' t = t * b' where b' = 5.8789254e10 *~ (hertz / kelvin)
-- Uncertainty: 53
-- Planck's law TODO
Please sign in to comment.
Something went wrong with that request. Please try again.