This function computes the multiple buried pipe system coupling matrix P described by Kusuda (1981).
For a network of n buried pipes that are coaxial, the matrix P of size n x n is computed from the system geometry:
where:
ai = horizontal position of pipe i
di = depth of pipe i
ri = external radius of pipe i
Kusuda, T. (1981). Heat transfer analysis of underground heat and chilled-water distribution systems. National Bureau of Standards.
function groundCouplingFactors extends Modelica.Icons.Function; input Integer nPip(min = 1, fixed = true) "Number of pipes"; input Modelica.Units.SI.Length dep[nPip] "Pipes Buried Depth"; input Modelica.Units.SI.Length pos[nPip] "Pipes Horizontal Coordinate (to an arbitrary reference point)"; input Modelica.Units.SI.Length rad[nPip] "Pipes external radius"; output Real P[nPip, nPip] "Thermal coupling geometric factors"; end groundCouplingFactors;