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/CH11/EX11.7/11_7.sce | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100755 2504/CH11/EX11.7/11_7.sce

(limited to '2504/CH11/EX11.7')

diff --git a/2504/CH11/EX11.7/11_7.sce b/2504/CH11/EX11.7/11_7.sce
new file mode 100755
index 000000000..ede38dac4
--- /dev/null
+++ b/2504/CH11/EX11.7/11_7.sce
@@ -0,0 +1,34 @@
+clc
+//initialisation of variables
+clear
+r= 1.4
+Mai= 0.5 //ft/sec
+T= 582 //R
+psi= 3040 //lbf/in^2
+R= 53.3 //ft lbf/lbm
+g= 32.2 //ft/sec^2
+Vwi= 300 //ft/sec
+m= 35 //lb/sec
+rm= 0.7 //ft
+rp= 4.25
+w= 1200 //rev/sec
+cp= 0.24
+J= 778 //lb
+//CALCULATIONS
+tr= 1+0.5*(r-1)*Mai^2
+Ti= T/tr
+pr= tr^(r/(r-1))
+pi= psi/pr
+ai= pi/(R*Ti)
+Vi= Mai*(r*R*g*Ti)^0.5
+Vai= sqrt(Vi^2-Vwi^2)
+h= m/(2*%pi*ai*rm*Vai)
+pr1= rp^(1/12)
+Vwo= Vwi+(pr1^((r-1)/r)-1)*(cp*J*g*T/(rm*w))
+BO= acotd((Vwo-w*rm)/Vai)
+//RESULTS
+printf ('Absolute air velocity = %.f ft/sec',Vi)
+printf ('\n air velocity = %.f ft/sec',Vai)
+printf ('\n Blade height = %.3f ft',h)
+printf ('\n velocity = %.f ft/sec',Vwo)
+printf ('\n outlet balde angle = %.1f degrees',BO)
-- 
cgit