Permalink
Browse files

Kinematic viscosity.

  • Loading branch information...
1 parent 1aaee1a commit 8df4220ddf4347a6a047f65d48877d07a467aae0 @bjornbm committed Feb 21, 2012
Showing with 11 additions and 2 deletions.
  1. +6 −0 Numeric/Units/Dimensional/TF/NonSI.lhs
  2. +4 −1 Numeric/Units/Dimensional/TF/Quantities.lhs
  3. +1 −1 dimensional-tf.cabal
View
6 Numeric/Units/Dimensional/TF/NonSI.lhs
@@ -164,6 +164,12 @@ to 1 mmHg.
> rad = centi gray
+= Kinematic Viscosity =
+
+> stokes :: (Fractional a) => Unit DKinematicViscosity a
+> stokes = centi meter ^ pos2 / second
+
+
= References =
[1] http://physics.nist.gov/Pubs/SP811/
View
5 Numeric/Units/Dimensional/TF/Quantities.lhs
@@ -300,7 +300,10 @@ provide some synonyms that we anticipate will be useful.
> type MassFlow = Quantity DMassFlow
> type DGravitationalParameter = Dim Pos3 Zero Neg2 Zero Zero Zero Zero
-> type GravitationalParameter = Quantity DGravitationalParameter
+> type GravitationalParameter = Quantity DGravitationalParameter
+
+> type DKinematicViscosity = Dim Pos2 Zero Neg1 Zero Zero Zero Zero
+> type KinematicViscosity = Quantity DKinematicViscosity
For these we don't bother defining new type synonyms for dimensionalities.
Is this rational?
View
2 dimensional-tf.cabal
@@ -1,5 +1,5 @@
Name: dimensional-tf
-Version: 0.1.0.1
+Version: 0.1.1
License: BSD3
License-File: LICENSE
Copyright: Bjorn Buckwalter 2006-2012

0 comments on commit 8df4220

Please sign in to comment.