-- Cálculo de temperatura del fluido a la salida
COMPONENT TUB_CAPTADOR (INTEGER N) -- Parámetro número de segmentos de tubería
PORTS
IN fluido F_In -- Puertos de entrada para variables de contorno y parámetros de la tubería
IN solar S
IN cond_espejos E
IN parametros_TUB P
OUT fluido F_Out -- Puerto de salida tipo fluido
DATA
REAL incx=1 -- Longitud del segmento
DECLS
REAL Tm[N] -- Tª metal de cada uno de los N segmentos
REAL Tf[N] -- Tª fluido de cada segmento
REAL Tfsc[N] -- Tª fluido en estado estacionario para cada segmento
REAL Hl[N] -- Pérdidas metal-ambiente para cada segmento
REAL pf[N] -- Características del fluido para cada segmento
REAL Cf[N]
REAL Ht[N] -- Transmisión de calor metal-fluido para cada segmento
--REAL t_delay
INIT
FOR( i IN 1,N ) -- Tª inicial del metal y del fluido
Tm[i]= 71.77
Tf[i]= 64.77
END FOR
CONTINUOUS
--t_delay=(P.Af*incx)/(F_In.w*3600)
Tf[1]=F_In.T -- Tª fluido en el primer segmento igual a temperatura de entrada
-- Cálculos pra el primer segmento de tubería
Hl[1]=perdidas_metal(Tm[1],S.Tamb)
caract_fluido(Tf[1],F_In.w,pf[1],Cf[1],Ht[1])
Tfsc[1]=Tf[1]+((P.L*Ht[1]*P.Tint)/(P.Af*pf[1]*Cf[1]))*(Tm[1]-Tf[1])
Tm[1]'*(P.pm*P.Cm*P.Am)*(CINT/P.Tint)=S.I*P.G*P.Eficienciamedia*E.sombras*E.espejos_enfoc-Hl[1]*P.G*(Tm[1]-S.Tamb)-P.L*Ht[1]*(Tm[1]-Tf[1])
-- Cálculos segmentos restantes
EXPAND_BLOCK (i IN 2,N)
-- Coeficiente pérdidas metal-ambiente para cada segmento
Hl[i]=perdidas_metal(Tm[i],S.Tamb)
-- Características del fluido y coeficiente de transmisión metal-fluido en cada segmento
caract_fluido(Tf[i],F_In.w,pf[i],Cf[i],Ht[i])
-- Temperatura fluido en estado estacionario
Tfsc[i]=Tf[i]+((P.L*Ht[i]*P.Tint)/(P.Af*pf[i]*Cf[i]))*(Tm[i]-Tf[i])
-- Ecuaciones diferenciales obtenidas del modelo de parámetros distribuidos
Tm[i]'*(P.pm*P.Cm*P.Am)*(CINT/P.Tint)=S.I*P.G*P.Eficienciamedia*E.sombras*E.espejos_enfoc-Hl[i]*P.G*(Tm[i]-S.Tamb)-P.L*Ht[i]*(Tm[i]-Tf[i])
Tf[i]'*(CINT/P.Tint)=((P.L*Ht[i])/(P.Af*pf[i]*Cf[i]))*(Tm[i]-Tf[i])-(F_In.w/(P.Af*incx))*(Tfsc[i]-Tfsc[i-1])
END EXPAND_BLOCK
F_Out.w=F_In.w -- Envío de caudal
F_Out.T=Tf[N] -- Envío temperatura en último segmento
END COMPONENT
-- (Tfsc[i]-delay(Tfsc[i-1],t_delay))
--(Tfsc[i]-Tfsc[i-1])
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
