flux: Convert heat flux to specific heat loss power

In omega1x/pipenostics: Diagnostics, Reliability and Predictive Maintenance of Pipeline Systems

Convert heat flux to specific heat loss power

Description

Convert heat flux measured for a cylindrical steel pipe to specific heat loss power of pipe.

Usage

loss_flux(x, d, wth = 0)

flux_loss(x, d, wth = 0)

Arguments

x	value of heat flux, [W/m^2], for loss_flux(x, d, wth) specific heat loss power, [kcal/m/h], for flux_loss(x, d, wth)(x) Type: assert_double.
d	outside (if wth = 0) or internal (if wth > 0) diameter of cylindrical pipe, [m]. Type: assert_double.
wth	wall thickness of pipe, [mm], or 0 if argument d is an outside diameter of pipe. Type: assert_double.

Value

value of

• specific heat loss power, [kcal/m/h], for loss_flux(x, d, wth)

• heat flux, [W/m^2], for flux_loss(x, d, wth)(x)

Type: assert_double.

See Also

Other units: c_k(), f_k(), inch_mm(), k_c(), kgf_mpa(), mm_inch(), mpa_kgf(), mpa_psi(), psi_mpa()

Examples

library(pipenostics)

# Consider pipes:
diameter      <- c(998, 1395)  # [mm]
wall_thikness <- c(  2,    5)  # [mm]

# Then maximum possible normative neat loss according (Minenergo-325) for
# these pipe diameters are
loss_max <- c(218, 1040)  # [kcal/m/h]

# The appropriate flux is
flux <- flux_loss(loss_max, diameter * 1e-3, wall_thikness)
print(flux)

# [1] 80.70238 275.00155  # [W/m^2]

stopifnot(
  all.equal(loss_flux(flux, diameter * 1e-3, wall_thikness), loss_max, tolerance = 5e-6)
)

omega1x/pipenostics documentation built on May 13, 2024, 4:14 a.m.