R/fooConst.R

Defines functions Rwater sgTr sfTr DgTr DfTr pTr TTr sCrit hCrit DCrit TCrit pCrit

Documented in DCrit DfTr DgTr hCrit pCrit pTr Rwater sCrit sfTr sgTr TCrit TTr

#' Water Critical Pressure
#'
#' @description This function \code{pCrit()} returns the water critical pressure [MPa].
#' 
#' @return The Water Critical Pressure: pc [MPa]
#' 
#' @examples
#' pc <- pCrit()
#' pc
#' 
#' @export
#' 
  pCrit <- function() {
  pCrit <- as.double(22.064)
  return(pCrit)
  }

#' Water Critical Temperature
#'
#'  @description The function \code{TCrit()} returns the water critical temperature [K].
#' 
#' @return The Water Critical Temperature: Tc [K]
#' 
#' @examples
#' Tc <- TCrit()
#' Tc
#' 
#' @export
#' 
TCrit <- function() {
  TCrit <- as.double(647.096)
  return(TCrit)
}

#' Water Critical Density
#'
#' @description The function \code{DCrit()} returns the water density at the critical point [kg m-3].
#'
#' @return The Water Critical Density: Dc [kg m-3]
#' 
#' @examples
#' DC <- DCrit()
#' DC
#' 
#' @export
#' 
DCrit <- function() {
  DCrit <- as.double(322.00)
  return(DCrit)
}

#' Water Critical Enthalpy
#'
#'  @description The function \code{hCrit()} returns the water enthalpy at the critical point [kJ kg-1].
#'
#' @return The Water Critical Enthalpy: hc [ kJ kg-1 ]
#' 
#' @examples
#' hC <- hCrit()
#' hC
#' 
#' @export
#' 
hCrit <- function() {
  hCrit <- as.double(2084.25625591)
  return(hCrit)
}

#' Water Critical Entropy
#'
#' @description The function \code{sCrit()} returns the entropy at the critical point [kJ k-1 K-1 ].
#'
#' @return The Water Critical Entropy: sc [ kJ kg-1 K-1 ]
#' 
#' @examples
#' sC <- sCrit()
#' sC
#' 
#' @export
#' 
sCrit <- function() {
  sCrit <- as.double(4.4069618924)
  return(sCrit)
}

#' Water Temperature at Triple Point
#'
#' @description The function \code{TTr()} returns the Water Temperature at Triple Point [K]
#' 
#' @return The Triple Point Temperature: TTr [ K ]
#' 
#' @examples
#' Ttrip <- TTr()
#' Ttrip
#' 
#' @export
#' 
TTr <- function() {
  TTr <- as.double(273.16)
  return(TTr)
}

#' Water Pressure at Triple Point
#'
#' @description The function \code{pTr()} returns the Water Pressure at Triple Point [MPa].
#' 
#' @return The Triple Point Pressure: pTr [ MPa ]
#' 
#' @examples
#' pTrip <- pTr()
#' pTrip
#' 
#' @export
#' 
pTr <- function() {
  pTr <- as.double(0.6116547711e-03)
  return(pTr)
}

#' Liquid Water Density at Triple Point
#'
#' @description The function \code{DfTr()} returns the Water Liquid Density at Triple Point.
#'
#' @return Triple Point Liquid Density: DfTr [ kg m-3 ]
#' 
#' @examples
#' DfTrip <- DfTr()
#' DfTrip
#' 
#' @export
#' 
DfTr <- function() {
  DfTr <- as.double(0.999792520186e+03)
  return(DfTr)
}

#' Water Gas Density at Triple Point
#'
#' @description The function \code{DgTr()} returns the Water Gas Density at Triple Point.
#'
#' @return Triple Gas Density: DgTr [ kg m-3 ]
#'
#' @examples
#' DgTrip <- DgTr()
#' DgTrip
#' 
#' @export
#' 
DgTr <- function() {
  DgTr <- as.double(0.485457572553e-02)
  return(DgTr)
}

#' Liquid Water Entropy at Triple Point
#'
#' @description The function \code{sfTr()} returns the Water Liquid Entropy at Triple Point.
#'
#' @return Triple Point Liquid Entropy: sfTr [ kJ kg-1 K-1]
#' 
#' @examples
#' sfTrip <- sfTr()
#' sfTrip
#' 
#' @export
#' 
sfTr <- function() {
  sfTr <- as.double(0.0)
  return(sfTr)
}

#' Water Gas Entropy at Triple Point
#'
#' @description The function \code{sgTr()} returns the Water Gas Entropy at Triple Point.
#'
#' @return Triple Point Gas Entropy: sgTr [ kJ kg-1 K-1]
#' 
#' @examples
#' sgTrip <- sgTr()
#' sgTrip
#' 
#' @export
#' 
sgTr <- function() {
  sgTr <- as.double(9.1554934093)
  return(sgTr)
}

#' Water Specific Gas Constant
#'
#' @description The function \code{Rwater()} returns the Water Specific Gas Constant.
#'
#' @return Water Specific Gas Constant: R [ K-1 ]
#' 
#' @examples
#' Rw <- Rwater()
#' Rw
#' 
#' @export
#' 
Rwater <- function() {
  Rwater <- as.double(0.461518050)
  return(Rwater)
}

Try the IAPWS95 package in your browser

Any scripts or data that you put into this service are public.

IAPWS95 documentation built on June 24, 2022, 9:05 a.m.