Convert heat flux measured for a cylindrical steel pipe to specific heat loss power of pipe.
Arguments
- x
value of
heat flux, [W/m²], for
loss_flux(x, d, wth)
specific heat loss power, [kcal/m/h], for
flux_loss(x, d, wth)(x)
Type:
assert_double
.- d
nominal (outside) diameter of pipe, [mm]. Type:
assert_double
.
Value
Value of
specific heat loss power, [kcal/m/h], for
loss_flux(x, d, wth)
heat flux, [W/m²], for
flux_loss(x, d, wth)(x)
Type: assert_double
.
Examples
library(pipenostics)
# Consider pipes with nominal (outside) diameters:
d <- c(998, 1395) # [mm]
# Then maximum possible normative neat loss according (Minenergo-325) is
loss_max <- c(218, 1040) # [kcal/m/h]
# The appropriate flux is
flux <- flux_loss(loss_max, d)
print(flux)
#> [1] 80.86411 275.98722
stopifnot(all.equal(loss_flux(flux, d), loss_max, tolerance = 1e-5))