diff options
Diffstat (limited to '1808/CH5/EX5.27/Chapter5_Exampl27.sce')
-rw-r--r-- | 1808/CH5/EX5.27/Chapter5_Exampl27.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/1808/CH5/EX5.27/Chapter5_Exampl27.sce b/1808/CH5/EX5.27/Chapter5_Exampl27.sce new file mode 100644 index 000000000..08f351227 --- /dev/null +++ b/1808/CH5/EX5.27/Chapter5_Exampl27.sce @@ -0,0 +1,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)
|