Vind med en intelligent varmepumpe - Aalborg Universitet

kT = 0 . 1 4 ; %Varmekonduktivitet f o r beholder , a l t s å tab ud a f
%tanken [W/(m*C) ]
Tstart = 7 0 ; %s tarttemperaturen [C]
AT = 1 2 . 3 ; %O v e r f l a d e a r e a l a f beholderen [mˆ 2 ]
lT = 0 . 0 5 ; %Tykkelse a f beholderens væg [m]
h = 2 ; %Højde a f varmebeholder [m]
mB = 6200; %Masse a f vand i beholder [ kg ]
%t i d s v æ r d i e r
t s l u t = 3600*16; %Slut−t i d i sek . [ s ]
dt = 0 . 1 ; % i n t e r v a l i hver t i d s r e g n i n g i t i d [ s ]
%værdier f o r r ø r
kV = 401; %Varmekonduktivitet f o r varmeudvekslingen mellem
%vand og r ø r [W/(m*C) ]
dV = 0 . 0 2 5 ; %Diameter a f r ø r [m]
lV = 0 . 0 1 ; %Tykkelse a f varmerør [m]
v = 0 . 1 8 ; %Flow−hastighed i r ø r [m/ s ]
ldR = dt *v ; %Længde a f hvert stykke t i d s i n d d e l t vand [m]
TRind = 4 0 ; %Indgangstemperaturen f o r vandet i r ø r e t
AV = pi *dV*ldR ; %O v e r f l a d e a r e a l f o r r ø r [mˆ 2 ]
mRl = pi *(dV/2)ˆ2*1000* ldR ; %Masse a f vand i varmerør [ kg ]
%andet
c = 4186; %S p e c i f i k varmefylde f o r vand [ J /( kg *C) ]
Qtabgemt = 0 ; %summen a f a l l e qtab s t a r t e r med i n t e t tabt
%Hus
Ah = 2 68; %Overflade a r e a l a f hus
kh = 0 . 3 5 ; %varmekonduktivitet f o r huset
Ta = 1 9 ; %Indetemperatur [C]
Tudnat = −2; %Udetemperaturen om natten [C]
Tuddag = 0 . 6 ; %Udetemperaturen om dagen [C]
lh = 0 . 2 1 ; %t y k k e l s e a f væggene i huset [m]
varmtvand = 124; %massen a f varmt vand pr . dag
%(31 kg pr person ) [ kg ]
nablavand = 0 . 5 ; %g e n a n v e n d e l s e s f a k t o r a f det varme forbrugsvand
%t i l opvarmning a f hus
%f u n k t i o n e r f o r varmetab i hus
Qhusnat = kh *Ah *(Ta−Tudnat )/ lh * dt ;
%varmetab om natten f o r huset i [ J ]
Qhusdag = kh *Ah *(Ta−Tuddag )/ lh * dt ;
%varmetab om dagen f o r huset [ J ]
Qvarmtvand = c *varmtvand *25/( t s l u t / dt )*(1 − nablavand ) ;
%varmemængde t i l vand pr sekund
Qhustemp = Qhusnat+Qvarmtvand ;
%Varmebehovet s t a r t e r med natopvarmning og
%varmt vand . Heraf t i d e n s t a r t e r om natten .
%Dimensionering a f l a g e r
Qnat = kh *Ah *(Ta−Tudnat )/ lh *12*3600;