pipenostics (version 0.1.7)

m278inshcm: Minenergo-278. Thermal conductivity of pipe insulation materials

Description

Get normative values of thermal conductivity of pipe insulation materials affirmed by Minenergo Method 278 as a function of temperature of heat carrier (water).

Usage

m278inshcm(temperature = 110, material = "aerocrete")

Arguments

temperature

temperature of heat carrier (water) inside the pipe, [<U+00B0>C]. Type: assert_double.

material

designation of insulation material as it stated in m278insdata, Type: assert_subset.

Value

Thermal conductivity of insulation materials [W/m/<U+00B0>C] at given set of temperatures. Type: assert_double.

See Also

Other Minenergo: m278hlair(), m278hlcha(), m278hlund(), m278insdata, m278soildata, m325beta(), m325dropt(), m325nhldata, m325nhl(), m325testbench

Examples

# NOT RUN {
# Averaged thermal conductivity of pipe insulation at 110 <U+00B0>C
print(m278insdata)
head(m278inshcm(110, m278insdata[["material"]]))
# [1] 0.09600 0.07525 0.14950 0.14325 0.14950 0.10800

# Terms for linear connection between thermal conductivity of unknown
# (averaged) pipe insulator vs temperature:
temperature <- as.double(1:450)
lambda_ins <- with(m278insdata, {
  vapply(temperature, function(x) mean(m278inshcm(x, material)), .1)
})
C <- coef(lsfit(temperature, lambda_ins))  # c(Intercept, X)
stopifnot(
  all(abs(C - c(7.963590e-02, 9.730769e-05)) < 1e-8)
)

# }