atmos 0.3.0.0 → 0.4.0.0
raw patch · 2 files changed
+1/−44 lines, 2 filesdep −dimensional-tfPVP ok
version bump matches the API change (PVP)
Dependencies removed: dimensional-tf
API changes (from Hackage documentation)
- Atmosphere.DimensionalTF: Atmos :: ThermodynamicTemperature a -> Pressure a -> Density a -> Velocity a -> DynamicViscosity a -> KinematicViscosity a -> Atmos a
- Atmosphere.DimensionalTF: [atmosDensity] :: Atmos a -> Density a
- Atmosphere.DimensionalTF: [atmosKinematicViscosity] :: Atmos a -> KinematicViscosity a
- Atmosphere.DimensionalTF: [atmosPressure] :: Atmos a -> Pressure a
- Atmosphere.DimensionalTF: [atmosSpeedOfSound] :: Atmos a -> Velocity a
- Atmosphere.DimensionalTF: [atmosTemperature] :: Atmos a -> ThermodynamicTemperature a
- Atmosphere.DimensionalTF: [atmosViscosity] :: Atmos a -> DynamicViscosity a
- Atmosphere.DimensionalTF: altitudeFromPressure :: (Floating a, Ord a) => Pressure a -> Length a
- Atmosphere.DimensionalTF: atmosphere :: (Floating a, Ord a) => Length a -> Atmos a
- Atmosphere.DimensionalTF: data Atmos a
Files
- atmos.cabal +1/−3
- src/Atmosphere/DimensionalTF.hs +0/−41
atmos.cabal view
@@ -1,5 +1,5 @@ name: atmos-version: 0.3.0.0+version: 0.4.0.0 synopsis: 1976 US Standard Atmosphere Model description: { 1976 US Standard Atmosphere Model.@@ -21,12 +21,10 @@ hs-source-dirs: src exposed-modules: Atmosphere Atmosphere.Dimensional- Atmosphere.DimensionalTF other-modules: Atmosphere.Constants build-depends: base >= 4 && < 5 , dimensional >= 1.0.0.0- , dimensional-tf >= 0.1.1 test-suite unit-tests
− src/Atmosphere/DimensionalTF.hs
@@ -1,41 +0,0 @@-{-# OPTIONS_GHC -Wall #-}---- | This is a thin wrapper on top of the atmos package.--- It provides the exaxt same functions but uses units--- from the dimensional-tf package.-module Atmosphere.DimensionalTF- ( Atmos(..)- , atmosphere- , altitudeFromPressure- ) where--import qualified Atmosphere as A--import qualified Prelude ()-import Numeric.Units.Dimensional.TF.Prelude--data Atmos a = Atmos { atmosTemperature :: ThermodynamicTemperature a- , atmosPressure :: Pressure a- , atmosDensity :: Density a- , atmosSpeedOfSound :: Velocity a- , atmosViscosity :: DynamicViscosity a- , atmosKinematicViscosity :: KinematicViscosity a- }--atmosphere :: (Floating a, Ord a) => Length a -> Atmos a-atmosphere alt = Atmos- { atmosTemperature = temp *~ kelvin- , atmosPressure = pressure *~ pascal- , atmosDensity = density *~ (kilo gram / meter ^ pos3)- , atmosSpeedOfSound = asound *~ (meter / second)- , atmosViscosity = viscosity *~ (newton * second / meter ^ pos2)- , atmosKinematicViscosity = kinematicViscosity *~ (meter ^ pos2 / second)- }- where- A.Atmos temp pressure density asound viscosity kinematicViscosity = A.siAtmosphere (alt /~ meter)--altitudeFromPressure :: (Floating a, Ord a) => Pressure a -> Length a-altitudeFromPressure dimPressure = siAltitude *~ meter- where- siAltitude = A.siAltitudeFromPressure siPressure- siPressure = dimPressure /~ pascal