Permalink
Browse files

Complete interrupted work on Wien's displacement law.

  • Loading branch information...
1 parent aeb60b3 commit 64ae8f19ba77c6f9a4b1292581112e6e0609de0c @bjornbm committed Jan 16, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 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

0 comments on commit 64ae8f1

Please sign in to comment.