summaryrefslogtreecommitdiff
path: root/1808/CH5/EX5.27/Chapter5_Exampl27.sce
blob: 08f351227830dc59c4eb57bc59ecdf83240c509d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clc
clear
//INPUT DATA
p1=1;//initial pressure in bar
pd=9;//delivery pressure in bar
n=1.3;//index of compression
R=0.287;//gas constant
t1=300;//temperature in K
m=1;//mass of air
cp=1.005;//specific pressure

//CALCULATIONS
p2=sqrt(p1*pd);//intermediate pressure in bar
wd=2*((n/(n-1))*R*t1*(((pd/p1)^((n-1)/(2*n)))-1));//minimum work done per min
t2=t1*((p2/p1)^((n-1)/n));//temperature K
Qr=m*cp*(t2-t1);//heat rejected to intercooler in kJ/kg

//OUTPUT
printf('(i)minimum work done per min %3.2f kJ/kg \n (ii)%3.4f kJ/kg ',wd,Qr)