# m278inshcm: Minenergo-278. Thermal conductivity of pipe insulation... In pipenostics: Diagnostics, Reliability and Predictive Maintenance of Pipeline Systems

## 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

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

## Arguments

 `temperature` temperature of heat carrier (water) inside the pipe, [°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/°C] at given set of temperatures. Type: `assert_double`.

## See Also

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

## Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15``` ```# Averaged thermal conductivity of pipe insulation at 110 °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) ) ```

pipenostics documentation built on March 2, 2021, 5:06 p.m.