-- Establecimiento de caudal y temperatura fluido de entrada
COMPONENT Entrada_Flujo
PORTS
OUT fluido F1 -- Puerto de salida tipo fluido
DATA -- Directorio de datos de la planta
FILEPATH datafile="@PLANTA_SOLAR@/experiments"
DECLS
TABLE_1D t_caudal -- Tablas 1D para adquisición de datos
TABLE_1D t_Tent
REAL caudal -- Caudal
REAL Tent -- Temperatura entrada fluido
BOOLEAN correct_caudal -- Corrector de caudal
INIT -- Lectura de datos
readTableCols1D("datafile/DATA110916.txt",1,2,t_caudal)
readTableCols1D("datafile/DATA110916.txt",1,4,t_Tent)
DISCRETE
WHEN (caudal<0)THEN correct_caudal= TRUE -- Caudal negativo
END WHEN
CONTINUOUS
caudal= ZONE (correct_caudal== TRUE) 0 -- Corrección de caudal
OTHERS linearInterp1D(t_caudal,TIME)/3600 -- Interpolación de datos
Tent = linearInterp1D(t_Tent,TIME)
Tent=F1.T -- Envío por el puerto de salida
caudal=F1.w
END COMPONENT
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
