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

---
 2666/CH9/EX9.1/9_1.sce   | 21 +++++++++++++++++++++
 2666/CH9/EX9.2/Ex9_2.sce | 19 +++++++++++++++++++
 2666/CH9/EX9.3/Ex9_3.sce | 13 +++++++++++++
 2666/CH9/EX9.4/9_4.sce   | 27 +++++++++++++++++++++++++++
 2666/CH9/EX9.5/9_5.sce   | 23 +++++++++++++++++++++++
 5 files changed, 103 insertions(+)
 create mode 100755 2666/CH9/EX9.1/9_1.sce
 create mode 100755 2666/CH9/EX9.2/Ex9_2.sce
 create mode 100755 2666/CH9/EX9.3/Ex9_3.sce
 create mode 100755 2666/CH9/EX9.4/9_4.sce
 create mode 100755 2666/CH9/EX9.5/9_5.sce

(limited to '2666/CH9')

diff --git a/2666/CH9/EX9.1/9_1.sce b/2666/CH9/EX9.1/9_1.sce
new file mode 100755
index 000000000..16b79dea0
--- /dev/null
+++ b/2666/CH9/EX9.1/9_1.sce
@@ -0,0 +1,21 @@
+clc
+//initialisation of variables
+v=447.6//ft per sec
+p1=50//psia
+t=150//F
+p2=30//psia
+t1=50//F
+a=100//lb per sec
+h=0.24//T
+q=510//in
+w=50000//in
+g=1020//ft per sec
+d=53.3//ft
+t2=580//ft
+//CALCULATIONS
+V1=(d*(t2))/(t1*(144))//cu ft per lb
+V2=(d*(q))/(p2*(144))//cu ft per lb
+A=(sqrt(v/V1)/a)/100*(95)*10//sq ft
+A1=sqrt(g/V2)/a/2*10//sq ft
+//RESULTS
+printf('the velocity at cross sectional area at point=% f sq ft',A1)
diff --git a/2666/CH9/EX9.2/Ex9_2.sce b/2666/CH9/EX9.2/Ex9_2.sce
new file mode 100755
index 000000000..2453b8d30
--- /dev/null
+++ b/2666/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,19 @@
+
+
+clc
+//initialisation of variables
+p=2//if
+p1=100//percent
+p2=30//lb
+p3=50//lb
+t=580//F
+t1=501//R
+w=510//in
+q=0.24//in
+v=1020//ft per sec
+v1=1071//ft per sec
+//CALCULATIONS
+N=(v/v1)^2*100//percent
+E=(q*(t-w))/(q*(t-t1))*100//percent
+//RESULTS
+printf('The efficient from the true condition Nozzle efficient=% f percent',E)
diff --git a/2666/CH9/EX9.3/Ex9_3.sce b/2666/CH9/EX9.3/Ex9_3.sce
new file mode 100755
index 000000000..4d31e9131
--- /dev/null
+++ b/2666/CH9/EX9.3/Ex9_3.sce
@@ -0,0 +1,13 @@
+
+clc
+//initialisation of variables
+h=144//in
+p1=100//psia
+p2=54.5//psia
+g=32.2//in
+s=1.3//in
+v=13.9//cu ft per lb
+//CALCULATIONS
+V=sqrt(p2*h*v*g*s)//ft per sec
+//RESULTS
+printf('the acoustic velocity=% f ft per sec',V)
diff --git a/2666/CH9/EX9.4/9_4.sce b/2666/CH9/EX9.4/9_4.sce
new file mode 100755
index 000000000..03955c4bf
--- /dev/null
+++ b/2666/CH9/EX9.4/9_4.sce
@@ -0,0 +1,27 @@
+clc
+//initialisation of variables
+p=400//psia
+t=450//F
+p1=0.545//in
+k=1.135//in
+p2=0.578//ft
+v=1.1744//in
+h=1208.8//in
+s=1.4892//in
+p3=218//in
+v1=2.002//in
+h1=1158.1//in
+p4=0.0495//in
+v2=223.8//ft
+w=64.4//ft
+w1=1.3//ft
+Vel=1574//ft per sec
+//CALCULATIONS
+P=p1*p//ft
+P1=v2*sqrt(h-h1)//lb per sec
+W=(1/144)*(P1/v1)//lb per sec
+V=v*(p/P)^(1/(1.3))//cu ft per lb
+W1=(1/144)*(Vel/V)//lb per sec
+//RESULTS
+printf('the equalibrium flow=% f lb per sec',W)
+printf('supersaturation flow=% f lb per sec',W1)
diff --git a/2666/CH9/EX9.5/9_5.sce b/2666/CH9/EX9.5/9_5.sce
new file mode 100755
index 000000000..91c3bcf4e
--- /dev/null
+++ b/2666/CH9/EX9.5/9_5.sce
@@ -0,0 +1,23 @@
+clc
+//initialisation of variables
+a=94//percent
+p=14.7//psia
+w=1.7566//ft
+q=1.4892//ft
+s=14446//ft
+h1=1150.4//ft
+t=970.3//ft
+p1=1208.8//ft
+g=0.06//in
+h2=223.8//ft
+v=22.25//cu ft per lb
+a1=5.84//lb per sec
+//CALCULATIONS
+H=(w-q)/s*10000//ft per sec
+H1=h1-(H*t)//ft
+E=p1-H1//in
+W=H1+g*E//cu ft per lb
+N=h2*sqrt(p1-W)//ft per sec
+M=a1*(v)*(144)/N//sq in
+//RESULTS
+printf('the exit area for the nozzle=% f sq in',M)
-- 
cgit