Vind med en intelligent varmepumpe - Aalborg Universitet

%tabet f r a top og bund ud på de andre l a g
%( e l l e r s opstår der et problem med det ø v e r s t e
%l a g s tab , der v i l være meget s t o r t )
ArrayB ( j j )=ArrayB ( j j )−Qtab /(mBl* c ) ;
%træk det der blev tabt f r a beholderen i tab
%f r a beholderen
ArrayH ( i i )=ArrayH ( i i )−Qoverf−Qtab ;
%Tjek om der er nok e n e r g i ved at trække det
%o v e r f ø r t e og det tabte f r a det der er nødvendigt .
%(Skal h e l s t l i g g e tæt på 0 . )
i f i i +j j >= t s l u t / dt %f o r at der s k a l være vand i r ø r e t
%h e l e vejen op breaker den , e l l e r s s k u l l e hver
%p o r t i o n vand igennem h e l e r ø r e t f ø r
%den næste s t a r t e d e
break
end
end
ArrayH ( i i )=ArrayH ( i i )/ dt ; %Omregner e n e r g i b a l a n c e n e f t e r t i d e n
end
subplot ( 3 , 1 , 1 )
% p l o t det f ø r s t e a f 3 p l o t s i 3 rækker og én kolonne
p l o t ( time , ArrayR ) ;
% t i d e n på x aksen og temperaturen i r ø r e t på y
t i t l e ( ’ Udgangstemperaturen a f vandet i r ø ret ’ ) %navngiver g r a f
x l a b e l ( ’ t i d [ s ] ’ ) %Navngiver x aksen
y l a b e l ( ’ temperatur [ c e l c i u s ] ’ ) %Navngiver y aksen
subplot ( 3 , 1 , 2 ) % p l o t det andet a f 3 p l o t s i 3 rækker og én kolonne
hold a l l %s ø r g e r f o r at begge l i n j e r i g r a f e n b l i v e r v i s t
p l o t ( 1 : length ( ArrayB ) , ArrayB , ’ . ’ ) ;
%p l o t t i l s l u t t i d e n l a g d e l i n g e n i tanken i f o r h o l d t i l
%l a g og temperatur
p l o t ( 1 : length ( ArrayB ) , ArrayBgemt ) ;
%p l o t den o p r i n d e l i g l a g d e l i n g t i l sammenligning i f o r h o l d t i l
%l a g og temperatur
t i t l e ( ’ Lagenes f o r d e l i n g i f o r h o l d t i l temperaturen − f ø r og e f t e r ’ )
%navngiver g r a f
x l a b e l ( ’ lag ’ ) %Navngiver x aksen
y l a b e l ( ’ temperatur [ c e l c i u s ] ’ ) %Navngiver y aksen
subplot ( 3 , 1 , 3 ) % p l o t det t r e d j e a f 3 p l o t s i 3 rækker og én kolonne
p l o t ( time , ArrayH ) %p l o t e n e r g i b a l a n c e n t i l t i d e n
t i t l e ( ’ Energibalancen i huset ’ ) %navngiver g r a f
x l a b e l ( ’ t i d [ s ] ’ ) %Navngiver x aksen
y l a b e l ( ’ e n e r g i b a l a n c e [ J ] ’ ) %Navngiver y aksen
Program for et lag
%værdier f o r s e l v e tanken :