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

---
 2504/CH7/EX7.9/7_9.sce | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 2504/CH7/EX7.9/7_9.sce

(limited to '2504/CH7/EX7.9/7_9.sce')

diff --git a/2504/CH7/EX7.9/7_9.sce b/2504/CH7/EX7.9/7_9.sce
new file mode 100755
index 000000000..9dfa64453
--- /dev/null
+++ b/2504/CH7/EX7.9/7_9.sce
@@ -0,0 +1,21 @@
+clc
+//initialisation of variables
+clear
+r= 1.4
+R= 53.3 //ft lbf/lbm R
+g= 32.2 //ft/sec^2
+T1= 410 //R
+v= 2500 //ft/sec
+P1= 628 //lbf/in^2
+//CALCULATIONS
+v1= sqrt(r*g*R*T1)
+Ma1= v/v1
+Ts1= T1*(1+0.5*(r-1)*Ma1^2)
+Ps1= P1*(1+0.5*(r-1)*Ma1^2)^(r/(r-1))
+Ps2= Ps1*((r+1)/(2*r*Ma1^2-r+1))^(1/(r-1))*(0.5*(r+1)*Ma1^2/(1+0.5*(r-1)*Ma1^2))^(r/(r-1))
+//RESULTS
+printf ('acoustic velocity = %.f ft/sec',v1)
+printf ('\n Match number = %.2f ',Ma1)
+printf ('\n Stagnition temperature = %.f R',Ts1)
+printf ('\n Stagnition pressure = %.f lbf/ft^2',Ps1)
+printf ('\n Stagnition pressure = %.f lbf/ft^2',Ps2)
-- 
cgit