-- Cálculo del coeficiente de pérdidas metal-ambiente por m2 de superficie para cada trozo de tubo. -- Entradas a la función: Temperatura metal [ºC] Temperatura ambiente ºC] * -- Salidas de la función: Coeficiente de pérdidas metal-ambiente [W/(m2ºC)]] FUNCTION REAL perdidas_metal (IN REAL Tm,IN REAL Tamb) DECLS REAL Hl CONST REAL Sup=64*11*0.5 BODY -- Calculamos por metro cuadrado de espejo para perdidas de tubo Hl=(4.5659247191149893*1e-1/352)*(Tm-Tamb)-(1.0062045206593238*1e2/Sup) RETURN Hl END FUNCTION