Vind med en intelligent varmepumpe - Aalborg Universitet

%a l den e n e r g i der s k a l bruges t i l at holde huset varmt om natten
Qdag = kh *Ah *(Ta−Tuddag )/ lh *12*3600;
%a l den e n e r g i der s k a l bruges t i l at holde huset varmt om dagen
Qtot = Qnat+Qdag+c *varmtvand *25*(1− nablavand ) ;
%energimængden der s k a l bruges t i l at varme den ønskede mængde vand
L a g e r s t r = Qtot/c /( Tstart−TRind )
%Beregner l a g e r e t s t r . i n t e t semikolon f o r så b l i v e r værdien
%a f l a g e r s t r smidt ud i matlab vinduet
l a g e r e n e r g i = mB* c *( Tstart−TRind )
%Beregner mængden a f e n e r g i t i l rådighed i l a g e r e t i n t e t semikolon
%f o r så b l i v e r værdien a f l a g e r s t r smidt ud i matlab vinduet
time = 0 : dt : t s l u t −dt ;
%hvor mange t i d s i n d e l i n g e r der er i a l t
ArrayR = z e r o s ( 1 , round ( t s l u t / dt ) ) ;
%Talrække over temperaturen a f hvert l a g i varmerøret [C]
ArrayB = z e r o s ( 1 , round ( t s l u t / dt +1));
%Talrække over temperaturen i beholderens l a g [C]
ArrayH = z e r o s ( 1 , round ( t s l u t / dt ) ) ;
%Talrække over e n e r g i b a l a n c e n f o r hust ( f o r meget e l l e r
%l i d t e n e r g i i f h t . behovet
f o r i i = 1 : round ( t s l u t / dt ) %Temperaturen i r ø r e r n e
ArrayR ( i i )=TRind ; %s t a r t e r ved d e r e s indgangstemperatur
end
ArrayB(1)= Tstart ;
f o r i i = 1 : t s l u t / dt %i i =s t a r t : i n t e r v a l : s l u t
i f i i == round (12*3600/ dt ) %h v i s t i d e n er l i g med et halvt døgn , så s k i f t t
Qhustemp=Qhusdag+Qvarmtvand ;
end
ArrayH ( i i )=Qhustemp ; %s t a r t e r med at opvarmningsbehovet er f o r
%natten samt varmt vand
f o r j j= i i : −1: round ( i i −h/ldR )
i f j j