-- | Units related to the field of solid mechanics.
module Data.Drasil.Units.SolidMechanics where

import Data.Drasil.SI_Units (metre, newton, pascal)
import Language.Drasil (UnitDefn, compoundUnit, cn', (/:))

stiffnessU, stiffness3D :: UnitDefn
stiffnessU :: UnitDefn
stiffnessU  = String -> NP -> String -> UnitEquation -> UnitDefn
compoundUnit String
"stiffness" (String -> NP
forall a. String -> NPG a
cn' String
"stiffness") String
"stiffness" (UnitEquation -> UnitDefn) -> UnitEquation -> UnitDefn
forall a b. (a -> b) -> a -> b
$ UnitDefn
newton UnitDefn -> UnitDefn -> UnitEquation
/: UnitDefn
metre
stiffness3D :: UnitDefn
stiffness3D = String -> NP -> String -> UnitEquation -> UnitDefn
compoundUnit String
"3D stiffness" (String -> NP
forall a. String -> NPG a
cn' String
"3D stiffness") String
"3D stiffness" (UnitEquation -> UnitDefn) -> UnitEquation -> UnitDefn
forall a b. (a -> b) -> a -> b
$ UnitDefn
pascal UnitDefn -> UnitDefn -> UnitEquation
/: UnitDefn
metre