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

---
 1457/CH12/EX12.1/12_1.sce | 24 ++++++++++++++++++++++++
 1457/CH12/EX12.2/12_2.sce | 16 ++++++++++++++++
 1457/CH12/EX12.3/12_3.sce | 18 ++++++++++++++++++
 1457/CH12/EX12.4/12_4.sce | 10 ++++++++++
 4 files changed, 68 insertions(+)
 create mode 100755 1457/CH12/EX12.1/12_1.sce
 create mode 100755 1457/CH12/EX12.2/12_2.sce
 create mode 100755 1457/CH12/EX12.3/12_3.sce
 create mode 100755 1457/CH12/EX12.4/12_4.sce

(limited to '1457/CH12')

diff --git a/1457/CH12/EX12.1/12_1.sce b/1457/CH12/EX12.1/12_1.sce
new file mode 100755
index 000000000..932b810bc
--- /dev/null
+++ b/1457/CH12/EX12.1/12_1.sce
@@ -0,0 +1,24 @@
+clc
+//Initialization of variables
+P1=10 //psia
+Q=0.6 //cfs
+A1=0.0491 //ft^2
+g=32.2
+V=39.2//fps
+A0=0.0218 //ft^2
+d1=2 //in
+d2=3 //in
+//calculations
+Phead=P1*144/62.4
+V1=Q/A1
+V2i= sqrt(2*g*(Phead + V1^2 /(2*g)))
+Cv=V/V2i
+A2=Q/V
+Cc=A2/A0
+Cd=Cc*Cv
+hL=(1/Cv^2 -1)*(1- (d1/d2)^4)*V^2 /(2*g)
+//results
+printf("Cc = %.2f ",Cc)
+printf("\n Cd= %.2f",Cd)
+printf("\n Cv= %.2f",Cv)
+printf("\n Head loss = %.2f ft",hL)
diff --git a/1457/CH12/EX12.2/12_2.sce b/1457/CH12/EX12.2/12_2.sce
new file mode 100755
index 000000000..3d7fa4e22
--- /dev/null
+++ b/1457/CH12/EX12.2/12_2.sce
@@ -0,0 +1,16 @@
+clc
+//Initialization of variables
+d=2 //in
+g=32.2
+d1=3 //in
+k=1.06
+//calculations
+A2=%pi/4 *d^2 /144
+dp=d/12
+Q=k*A2*sqrt(2*g*dp)
+A=%pi/4 *(d1/12)^2
+V1=Q/A
+K2=1.04
+Q2=K2/k *Q
+//results
+printf("Flow rate = %.4f cfs",Q2)
diff --git a/1457/CH12/EX12.3/12_3.sce b/1457/CH12/EX12.3/12_3.sce
new file mode 100755
index 000000000..3ab6f5299
--- /dev/null
+++ b/1457/CH12/EX12.3/12_3.sce
@@ -0,0 +1,18 @@
+clc
+//Initialization of variables
+P1=700 //kN/m^2
+P2=400 //kN/m^2
+D2=12.5 //cm
+D1=25 //cm
+C=0.985
+g=9.81
+R=287 //m^2/s^2 K
+T=273+20 //K
+//calculations
+Pr=P2/P1
+Dr=D2/D1
+Y=0.72
+gam1=P1*g/(R*T)
+G=C*Y*%pi/4 *(D2/100)^2 *sqrt(2*g*gam1*(P1-P2)/(1- Dr^4))
+//results
+printf("Weight flow rate = %.4f kN/s",G)
diff --git a/1457/CH12/EX12.4/12_4.sce b/1457/CH12/EX12.4/12_4.sce
new file mode 100755
index 000000000..a9a6b0ea4
--- /dev/null
+++ b/1457/CH12/EX12.4/12_4.sce
@@ -0,0 +1,10 @@
+clc
+//Initialization of variables
+V=3 //fps
+y=1 //ft
+L=4 //ft
+//calculations
+H= (V*y/3.33)^(2/3)
+P=L-H
+//results
+printf("Height of weir = %.2f ft",P)
-- 
cgit