11.01.2015 Views

Vind med en intelligent varmepumpe - Aalborg Universitet

Vind med en intelligent varmepumpe - Aalborg Universitet

Vind med en intelligent varmepumpe - Aalborg Universitet

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Qtab = kT*AT*( ArrayB ( i i )−Ta)/ lT * dt ;<br />

%Beregn varmetabet f o r vandtank<strong>en</strong><br />

Qtab = Qtab * 1 . 3 3 ;<br />

%Pga . mangl<strong>en</strong>de top og bund − f o r d e l e r<br />

%tabet f r a top og bund ud på de andre l a g<br />

%( e l l e r s opstår der et problem <strong>med</strong> det ø v e r s t e<br />

%l a g s tab , der v i l være meget s t o r t<br />

ArrayB ( i i +1)=ArrayB ( i i )−Qtab /(mB* c ) ;<br />

%træk det der blev tabt f r a beholder<strong>en</strong> i tab<br />

%f r a beholder<strong>en</strong><br />

ArrayH ( i i )=(ArrayH ( i i )−Qtab )/ dt ;<br />

%Tjek om der er nok e n e r g i<br />

%tabte f r a det der er nødv<strong>en</strong>digt .<br />

%(Skal h e l s t l i g g e tæt på 0 . )<br />

<strong>en</strong>d<br />

subplot ( 3 , 1 , 1 )<br />

% 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<br />

p l o t ( time , ArrayR ) ;<br />

% t i d e n på x aks<strong>en</strong> og temperatur<strong>en</strong> i r ø r e t på y<br />

t i t l e ( ’ Udgangstemperatur<strong>en</strong> a f vandet i r ø ret ’ ) %navngiver g r a f<br />

x l a b e l ( ’ t i d [ s ] ’ ) %Navngiver x aks<strong>en</strong><br />

y l a b e l ( ’ temperatur [ c e l c i u s ] ’ ) %Navngiver y aks<strong>en</strong><br />

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<br />

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<br />

p l o t ( 1 : l e n g th ( ArrayB ) , ArrayB , ’ . ’ ) ;<br />

%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 tank<strong>en</strong> i f o r h o l d t i l<br />

%l a g og temperatur<br />

p l o t ( 1 : l e n g th ( ArrayB ) , ArrayBgemt ) ;<br />

%p l o t d<strong>en</strong> o p r i n d e l i g l a g d e l i n g t i l samm<strong>en</strong>ligning i f o r h o l d t i l<br />

%l a g og temperatur<br />

t i t l e ( ’ Lag<strong>en</strong>es f o r d e l i n g i f o r h o l d t i l temperatur<strong>en</strong> − f ø r og e f t e r ’ )<br />

%navngiver g r a f<br />

x l a b e l ( ’ lag ’ ) %Navngiver x aks<strong>en</strong><br />

y l a b e l ( ’ temperatur [ c e l c i u s ] ’ ) %Navngiver y aks<strong>en</strong><br />

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<br />

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<br />

t i t l e ( ’ Energibalanc<strong>en</strong> i huset ’ ) %navngiver g r a f<br />

x l a b e l ( ’ t i d [ s ] ’ ) %Navngiver x aks<strong>en</strong><br />

y l a b e l ( ’ e n e r g i b a l a n c e [ J ] ’ ) %Navngiver y aks<strong>en</strong><br />

Excelprogrammer<br />

Excelkode der bruges i afsnit 3.7. Første figur er Excelark 1, CO 2 model for<br />

opvarmningsformer. De næste 4 billeder er kode for Excelark 2, model for lagrets kørsel:

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!