blob: cd9106b66435684d557f4c7cbfb40ae9544816e6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
clc
p1=1000; //kPa
p2=100; //kPa
p4=p1;
p3=p2;
E=2000; // Refrigerating effect produced in kJ/min
T3=268; //K
T1=303; //K
y=1.4;
disp("(i) Mass of air circulated per minute")
T2=T1*(p2/p1)^((y-1)/y);
e=cp*(T3-T2); //Refrigerating effect per kg; kJ/kg
m=E/e;
disp("m=")
disp(m)
disp("kg/min")
disp("(ii) Compressor work (Wcomp.), expander work (Wexp.) and cycle work (Wcycle)")
T4=T3*(p4/p3)^((y-1)/y);
Wcomp=y/(y-1)*m*R*(T4-T3);
disp("Compressor work =")
disp(Wcomp)
disp("kJ/min")
Wexp=y/(y-1)*m*R*(T1-T2);
disp("Expander work =")
disp(Wexp)
disp("kJ/min")
W_cycle=Wcomp-Wexp;
disp("Wcycle=")
disp(W_cycle)
disp("kJ/min")
disp("(iii) C.O.P. and power required")
COP=E/W_cycle;
disp("COP =")
disp(COP)
P=W_cycle/60;
disp("Power required =")
disp(P)
disp("kW")
|
