blob: 0e5ece4f14577d6d13bd299f6485e717d194ba75 (
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
|
//Chapter-2, Illustration 9, Page 65
//Title: Gas Power Cycles
//=============================================================================
clc
clear
//INPUT DATA
e=7.5;//Expansion ratio
c=15;//Compression ratio
P1=98;//Pressure at point 1 in kN/(m^2)
P4=258;//Pressure at point 4 in kN/(m^2)
T1=317;//Temperature at point 1 in K
y=1.4;//Ratio of specific heats
//CALCULATIONS
T4=T1*(P4/P1);//Temperature at point 4 in K
T3=T4*(e^(y-1));//Temperature at point 3 in K
t3=T3-273;//Temperature at point 3 in oC
T2=T1*(c^(y-1));//Temperature at point 2 in K
n=(1-((T4-T1)/(y*(T3-T2))))*100;//Thermal efficiency
//OUTPUT
mprintf('Maximum temperature attained during the cycle is %3.1f oC \n Thermal efficiency of the cycle is %3.1f percent',t3,n)
//==============================END OF PROGRAM=================================
|
