12.07.2015 Views

PhD Thesis - Energy Systems Research Unit - University of Strathclyde

PhD Thesis - Energy Systems Research Unit - University of Strathclyde

PhD Thesis - Energy Systems Research Unit - University of Strathclyde

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

IF(IONOFF.EQ.0) THENQi=0ElseC For Node 1 internal process Qi (NODE1) = zmref*(h9-h10)C But, given there is no change in enthalpy in an expansion valve: h9=h8:Qi=zmref*(h8-h10)End IfIf (Qi.EQ.0)ThenQj=0Qg=0ElseC For Node 2 internal process Qj (NODE2)C Qj=zmref*(h7-h8) + (zmref*h10 + zmst*h6 - zmwk*h1)C But, given there is no change in enthalpy in an expansion valve: h6=h5:Qj=zmref*(h7-h8) + (zmref*h10 + zmst*h5 - zmwk*h1)C For Node 3 internal process Qg (NODE3)C Qg=zmwk*h3 - zmst*h4 - zmref*h7Qg=zmwk*h3 - zmst*h4 - zmref*h7End IfC Calculate COPC COP = mchi*[(Cp @ T17)*T17 - (Cp @ T18)*T18] /C mhot*[(Cp @ T11)*T11 - (Cp @ T12)*T12]IF(IONOFF.EQ.0) THENCOP=0ElseCOP= (PCONDR(ICON1)*CONVAR(ICON1,2)*&(SHTFLD(3,CONVAR(ICON1,1))*CONVAR(ICON1,1)&- SHTFLD(3,CSVF(INOD1,1))*CSVF(INOD1,1)))/&(PCONDR(ICON3)*CONVAR(ICON3,2)*&(SHTFLD(3,CONVAR(ICON3,1))*CONVAR(ICON3,1)&- SHTFLD(3,CSVF(INOD3,1))*CSVF(INOD3,1)))End IfC Calculate Actual Refrigerant PowerIF(IONOFF.EQ.0) THEN297

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

Saved successfully!

Ooh no, something went wrong!