USE MATH
-- Cálculos iniciales de eficiencias, variables dimensionales y características del metal
COMPONENT Configuracion_TUB
PORTS
OUT parametros_TUB P -- Puerto de salida tipo parámetros_TUB
DATA -- Datos configurables
REAL G=0.5*11 -- Apertura del colector [m]
-- Definición de reflectividad y factores de eficiencia
REAL Absortancia=0.94
REAL Reflectividad=0.9*0.49
REAL Transmisividad=0.96
REAL Reflectividadsecundaria=0.77
REAL factorensuciamiento1=0.8
REAL factorensuciamiento2=0.8
-- Características del metal DIN 1.4404
REAL pm=8027 -- Densidad [Kg/m3]
REAL Cm=500 -- Calor específico [J/KgºC]
REAL diametrointeriortubo=0.068 -- Diámetro tuberías [m]
REAL diametroexteriortubo=0.071
REAL Tint=0.5 -- Tiempo de integración [s]
DECLS -- Variables locales
REAL Am -- Áreas transversales metal y fluido [m2]
REAL Af
REAL L -- Longitud circunferencia de la tubería [m]
REAL Eficienciamedia -- Eficiencia media
CONTINUOUS
-- Cálculo de variables
L=PI*diametrointeriortubo
Af=PI*diametrointeriortubo**2/4
Am=PI*(diametroexteriortubo**2-diametrointeriortubo**2)/4
Eficienciamedia=Absortancia*Reflectividad*Transmisividad*Reflectividadsecundaria*factorensuciamiento1*factorensuciamiento2
-- Envío de datos por puerto de salida
P.L=L
P.Af=Af
P.Am=Am
P.Eficienciamedia=Eficienciamedia
P.G=G
P.pm=pm
P.Cm=Cm
P.Tint=Tint
END COMPONENT
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
