Calculates hRad * (min(a, b)) for each UASurPai value. (a, b) are entries of AArr as follows: (2, 1); (3, 1); (3, 2); (4, 1); (4, 2); (4, 3); ...
function GSurfSurf extends Modelica.Icons.Function; input Modelica.Units.SI.Area[:] AArr "Vector of areas"; input Modelica.Units.SI.CoefficientOfHeatTransfer hRad "Coefficient of heat transfer for linearized radiation exchange between surfaces"; output Modelica.Units.SI.ThermalConductance[:] UASurPai "Constant thermal conductance between pairs of surfaces, calculated as minimal area * hRad"; end GSurfSurf;