blob: 7282b5a68e028a08b53727a8efb6c7e92aa4c8c6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
//Exa 6.3
clc;
clear;
close;
//Given data
heatEngineEffi= 32/100;// heat engine efficiency
COP= 5;// COP of heat pump
// heat engine efficiency = Wnet/Q1 = (Q1-Q2)/Q1
Q1byWnet= 1/heatEngineEffi;
Q2byWnet= (1-heatEngineEffi)*Q1byWnet;
// COP = Q4/Wnet = Q4/(Q4-Q3)
Q4byWnet= COP;
ratio= (Q2byWnet+Q4byWnet)/Q1byWnet;// ratio of heat transferred to the circulating water to heat trasferred to the engine
disp(ratio,"Ratio of heat trasferred to the circulating water to heat trasferred to the engine is : ")
|
