COMPONENT Sol
PORTS
OUT solar S1 -- Puerto de salida tipo Solar
DATA
FILEPATH datafile="@PLANTA_SOLAR@/experiments" -- Directorio de datos de la planta
DECLS
REAL I -- Irradiancia
REAL Tamb -- Temperatura ambiente
TABLE_1D t_Tamb -- Tablas unidimensionales para adquisición de datos
TABLE_1D t_irradiancia
BOOLEAN correct_I -- Corrector de irradiancia
INIT
readTableCols1D("datafile/DATA110916.txt",1,6,t_irradiancia)-- Lectura de datos
readTableCols1D("datafile/DATA110916.txt",1,3,t_Tamb)
DISCRETE
WHEN (I<10) THEN correct_I= TRUE -- Irradiancia menor que 10
END WHEN
CONTINUOUS
I= ZONE (correct_I== TRUE) 10 -- Corrección de irradiancia
OTHERS linearInterp1D(t_irradiancia,TIME) -- Interpolación de datos
Tamb = linearInterp1D(t_Tamb,TIME)
Tamb=S1.Tamb -- Envío por el puerto de salida
I=S1.I
END COMPONENT
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
