R-package for diagnostics, reliability and predictive maintenance of pipeline systems.
Aiming for digital transformation of technical engineering departments of heat generating and heat transferring companies the package aggregates to some extent the separate knowledge concerning engineering, reliability, diagnostics and predictive maintenance of pipeline systems. For the present time the package contains utilities for processing corrosion data commonly gathered by inline inspection, as well as emperical models for calculations of local thermal-hydraulic regimes of district heating network.
For the stable release just install the latest version from CRAN:
For the development version, use devtools:
library(pipenostics) b31crvl(maop = 910, d = 30, wth = .438, smys = 52000, def = .72, depth = .1, l = 7.5) -- Calculated data -- factor (A) = 1.847 Intermediate = 1093 PSI; Safe pressure = 1093 PSI Design pressure 910 PSI Pipe may be operated safely at MAOP, 7.500 inch, maximum allowed corrosion depth is 0.2490 inch; A = 1.847 With corrosion length 0.100 inch, maximum allowed corrosion length is Inf inch; A = 5.000With corrosion depth
Let’s consider a pipe in district heating network with
<- 762 # [mm] diameter <- 10 # [mm] wall_thickness <- 434.3697 # [MPa]UTS
which transfers heat-carrier (water) at
<- 0.588399 # [MPa] operating_pressure <- 95 # [°C]temperature
During inline inspection four corroded areas (defects) are detected with:
<- c(2.45, 7.86, 7.93, 8.15) # [mm]depth
whereas the length of all defects is not greater 200 mm:
<- rep(200, 4) # [mm] length print(length) #  200 200 200 200
Corrosion rates in radial and in longitudinal directions are not well-known and may vary in range
= function(n) stats::runif(n, .01, .30) / 365 rar = function(n) stats::runif(n, .01, .30) / 365ral
Then probabilities of failure (POFs) related to each corroded area are near:
<- mepof(depth, length, rep(diameter, 4), rep(wall_thickness, 4), pof rep(UTS, 4), rep(operating_pressure, 4), rep(temperature, 4), method = "dnv") rar, ral, # pipenostics::mepof: process case [4/4] - 100 % . All done, thanks! print(pof) #  0.000000 0.252935 0.368741 0.771299
So, the POF of the pipe is near
print(max(pof)) #  0.771299
The value of POF changes in time. So, in a year after inline inspection of the pipe we can get something near
<- mepof(depth, length, rep(diameter, 4), rep(wall_thickness, 4), pof rep(UTS, 4), rep(operating_pressure, 4), rep(temperature, 4), method = "dnv", days = 365) rar, ral, # pipenostics::mepof: process case [4/4] - 100 % . All done, thanks! print(pof) #  0.000000 0.526646 0.647422 0.928825
For entire pipe we get something near:
print(max(pof)) #  0.928825
Two years ago before inline inspection the pipe state was rather good:
<- mepof(depth, length, rep(diameter, 4), rep(wall_thickness, 4), pof rep(UTS, 4), rep(operating_pressure, 4), rep(temperature, 4), method = "dnv", days = -2 * 365) rar, ral, # pipenostics::mepof: process case [4/4] - 100 % . All done, thanks! print(pof) #  0.000000 0.040849 0.072734 0.272358
For entire pipe we get something near:
print(max(pof)) #  0.272358
Let’s consider the next 4-segment tracing path:
Suppose we have the next sensor readings for forward tracing:
<- 130 # [°C] t_fw <- 0.588399 # [MPa] p_fw <- 250 # [ton/hour]g_fw
Let’s discharges to network for each pipeline segment are somehow determined as
<- seq(0, 30, 10) # [ton/hour] discharges print(discharges) #  0 10 20 30
Then the calculated regime (red squares) for forward tracing is
<- m325traceline(t_fw, p_fw, g_fw, discharges, forward = TRUE) regime_fw print(regime_fw) # $temperature #  129.1799 128.4269 127.9628 127.3367 # # $pressure #  0.5878607 0.5874226 0.5872143 0.5870330 # # $consumption #  250 240 220 190
For further examples go to package function descriptions.
Aiming to avoid portability and accessibility problems made us search ways to restrict source code development by functionality of few external packages. It reasonably helps to use the package inside ML-services traditionally leveraged in large companies maintaining district heating systems.
Since most functions have native argument vectorization usage of those functions with fast data.table framework is strongly encouraged when processing large data sets. For that purpose arguments for all package functions are thoroughly checked for type consistency and physical sense using asserts and tests from checkmate package. Moreover, in package documentation we borrow type designations according to checkmate notation.
It is recognized by pipeline companies that some sections of high pressure pipelines particularly those installed a number of years ago, have experienced some corrosion. Where corrosion is found, pipeline operators have been deeply concerned about the need for a method of determining the remaining strength of these corroded areas. If the corrosion does not penetrate the pipe wall, what is the pressure containing capability of the remaining pipe metal in terms of its ability to continue to operate safely at the maximum allowable operating pressure (MAOP) of the pipeline system?
Thus, one of the needs of the pipeline industry has been a procedure that will help operators, particularly field personnel, make decisions on existing pipelines, when exposed for any purpose, as to whether any corroded region may be left in service or whether it needs to be repaired or replaced. Such determinations must be based upon sound research and extensive testing in order to provide safe and conservative guidelines on which to base field decisions.
ASME B31G-1991 and ASME B31G-2012 codes have proven sound and have seen successful use in the pipeline industry providing users with such required formalized framework for a very long period of time. That is why failure pressure calculators
b31gmodpf() are widely used in assessment of POFs.
To preserve simplicity of traditional inline measurements during inspections we hereinafter consider only Analysis Level 1 in this R-package, since as noted in ASME B31G-2012 Level 1 evaluation is quite suitable for use in prioritizing corrosion defects identified by inline inspection.
Other approaches for operating with corrosion data presented in the package are aimed on failure pressure calculations. Models like
pcorrcpf() assume different shapes of corrosion defects and usage conditions for some cases. So, it is encouraged first to find out which model is most suitable for solving some real world problem.
For the sake of simplicity and transparency the next values describing technological conditions, material properties of pipe and defect parameters are used as arguments throughout the most functions concerning corrosion diagnostics:
In the course of further development of the functionality of this package, some revisions or supplements to the existing concept are not excepted.
Consistent estimate of failure for pipeline systems plays a critical role in optimizing their operation. To prevent pipeline failures due to growing corrosion defects it is necessary to assess the pipeline failure probability (POF) during a certain period, taking into account its actual level of defectiveness.
The pipeline failure is preceded by limit state which comes when the burst pressure, considered as a random variable, reaches an unacceptable level, or when the defect depth, also a random variable, exceeds the predetermined limit value.
Up to now no methods existed which would give absolutely correct POF assessments. Nevertheless the stochastic nature of corrosion processes clearly suggests exploiting of Monte-Carlo simulations (MC). Meanwhile the lack of comprehensive knowledge of stochastic properties of characteristics of pipe and of its defects aids in embracing of Principle of maximum entropy which allows to avoid doubtful and excessive preferences and detalization when choosing probability distribution models for failure factors and for inline inspection measurements.
mepof() is designed to calculate probability of failure (POF) of the corroded pipe by MC, assigning maximun entropy for stochastic nature of corroded area length and depth, as well as engineering characteristics of pipe with thermal-hydraulic regime perameters.
Heat loss is the energy characteristic of district heating networks. It is the amount of heat energy spent on the transportation and distribution of heat energy from the source to the consumers.
Heat losses depend on the operating temperature, technical condition, volume and configuration of the district heating network, as well as on climatic factors. Heat losses are additive being the sum of the heat losses of individual pipeline segments.
Determination of heat losses for pipeline segments hereinafter is called heat loss localization.
It is assumed that actual heat loss (QAHL) of pipeline segment has two contributions: normative heat loss (QNHL) and extra-normative heat loss (QExNHL). So we can write:
QAHL = QNHL + QExNHL, QExNHL > 0
Localization of QExNHL is an important part of health maintenance activities of district heating network operation. One can determine QExNHL of pipeline segment as a positive difference between QAHL and QNHL and it is the most natural way. For that purpose Minenergo-325 and Minenergo-278 methods for postulating QNHL are considered.
Minenergo-325 lists legally affirmed maximum values of heat flux that is allowed to be emitted by steel pipes (see
m325nhl()). Higher emission is treated as QExNHL. Minenergo-278 gives method for engineering calculation of QNHL considering technical condition of pipeline segment (see
Localization of extra-normative heat losses QExNHL could be performed if they know thermal-hydraulic regime of district heating network for each pipeline segment. In most cases thermal-hydraulic field (values of temperature, pressure and heat carrier consumption) is measured only on heat-supply origins and near consumers, i.e. mostly on terminal nodes of the pipeline network. Middle segments of the network are rarely equipped and thus are not sensor-measured. For restoring of thermal-hydraulic field at each pipeline segment they can trace temperature, pressure and heat-carrier consumption using hydraulic and thermal laws and engineering characteristics of each pipe. Since only normative values of heat flux are accessible for calculations the restored thermal-hydraulic field is a normative (not actual) one. Nevertheless, even tracing small networks may produce local inconsistencies in restored normative field and those facts signal for possible extra-normative heat-losses in-situ. In accordance to sensor positions forward (see
m325traceline()) and backward (see
m325traceline(forward = FALSE)) tracing can be performed for the linear and the bunched pipelines on the basis of Minenergo-325 norms.