From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 172/CH17/EX17.7/ex7.sce | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 172/CH17/EX17.7/ex7.sce

(limited to '172/CH17/EX17.7/ex7.sce')

diff --git a/172/CH17/EX17.7/ex7.sce b/172/CH17/EX17.7/ex7.sce
new file mode 100755
index 000000000..37ad710db
--- /dev/null
+++ b/172/CH17/EX17.7/ex7.sce
@@ -0,0 +1,31 @@
+//ques7
+//determining exit properties in a control volume
+clear
+clc
+Po=1000;//stagnation pressure in kPa
+To=360;//stagnation temperature in K
+
+//when diverging section acting as nozzle
+Pe1=0.0939*Po;//exit pressure of air in kPa
+Te1=0.5089*To;//exit temperature in K
+k=1.4;//constant
+R=0.287;//gas constant for air
+ce=sqrt(k*R*Te1*1000);//velocity of sound in exit section in m/s
+Me=2.197;//mach number from table
+ve1=Me*ce;//velocity of air at exit section in m/s
+disp(" When diverging section act as a nozzle :-");
+printf('Exit pressure  = %.1f kPa \n',Pe1);
+printf('Exit Temperature = %.1f K \n',Te1);
+printf('Exit velocity = %.1f m/s \n',ve1);
+
+//when diverging section act as diffuser
+Me=0.308;
+Pe2=0.0936*Po;//exit pressure of air in kPa
+Te2=0.9812*To;//exit temperature in K
+ce=sqrt(k*R*Te2*1000);//velocity of sound in exit section in m/s
+ve2=Me*ce;
+disp(" When diverging section act as a diffuser :-");
+printf('Exit pressure  = %.1f kPa \n',Pe2);
+printf('Exit Temperature = %.1f K \n',Te2);
+printf('Exit velocity = %.1f m/s \n',ve2);
+
-- 
cgit