summaryrefslogtreecommitdiff
path: root/3511/CH6/EX6.8/Ex6_8.sce
blob: ea6388eca13057e446ca8d59a25682d1ca16cf35 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clc;
WR=0.3; // Work ratio
rp=12; // Pressure ratio 
t=4; // Temperature ratio
Cpa=1.005;// Specific heat of air  at constant pressure in kJ/kg K
Cpg=1.147;// Specific heat of fuel at constant pressure in kJ/kg K
rg=1.33;// Specific heat ratio of fuel
r=1.4; // Specific heat ratio of air

c=rp^((r-1)/r);
eff_C_T=1/((1-WR)*t/c);
tmin=c/eff_C_T;
eff=1-1/c;

disp (tmin,"Minimum Temperature ratio = ");
disp ("%",eff*100,"Efficiency = ");