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

---
 2159/CH3/EX3.1/31.sce   | 16 ++++++++++++++++
 2159/CH3/EX3.10/310.sce | 10 ++++++++++
 2159/CH3/EX3.11/311.sce |  9 +++++++++
 2159/CH3/EX3.12/312.sce | 14 ++++++++++++++
 2159/CH3/EX3.2/32.sce   | 17 +++++++++++++++++
 2159/CH3/EX3.3/33.sce   | 17 +++++++++++++++++
 2159/CH3/EX3.4/34.sce   | 20 ++++++++++++++++++++
 2159/CH3/EX3.5/35.sce   | 23 +++++++++++++++++++++++
 2159/CH3/EX3.6/36.sce   | 16 ++++++++++++++++
 2159/CH3/EX3.7/37.sce   | 14 ++++++++++++++
 2159/CH3/EX3.8/38.sce   | 11 +++++++++++
 2159/CH3/EX3.9/39.sce   | 17 +++++++++++++++++
 12 files changed, 184 insertions(+)
 create mode 100755 2159/CH3/EX3.1/31.sce
 create mode 100755 2159/CH3/EX3.10/310.sce
 create mode 100755 2159/CH3/EX3.11/311.sce
 create mode 100755 2159/CH3/EX3.12/312.sce
 create mode 100755 2159/CH3/EX3.2/32.sce
 create mode 100755 2159/CH3/EX3.3/33.sce
 create mode 100755 2159/CH3/EX3.4/34.sce
 create mode 100755 2159/CH3/EX3.5/35.sce
 create mode 100755 2159/CH3/EX3.6/36.sce
 create mode 100755 2159/CH3/EX3.7/37.sce
 create mode 100755 2159/CH3/EX3.8/38.sce
 create mode 100755 2159/CH3/EX3.9/39.sce

(limited to '2159/CH3')

diff --git a/2159/CH3/EX3.1/31.sce b/2159/CH3/EX3.1/31.sce
new file mode 100755
index 000000000..919c91112
--- /dev/null
+++ b/2159/CH3/EX3.1/31.sce
@@ -0,0 +1,16 @@
+// problem 3.1
+d1=0.3
+d2=0.1
+z1=6
+z2=3
+p1=200*1000
+q1=0.07
+a1=3.142*d1*d1/4
+a2=3.142*d2*d2/4
+v1=q1/a1
+v2=q1/a2
+w=9810
+g=9.81
+//applying bernoulli equation
+p2=((z1-z2)+(((v1^2)-(v2^2))/(2*g))+(p1/w))*w
+disp(p2,"pressure at point B in N/m2")
diff --git a/2159/CH3/EX3.10/310.sce b/2159/CH3/EX3.10/310.sce
new file mode 100755
index 000000000..72e3cf890
--- /dev/null
+++ b/2159/CH3/EX3.10/310.sce
@@ -0,0 +1,10 @@
+// problem 3.10
+H=0.1
+w=9810
+sw=12
+h=H*(w/sw)
+Cv=0.96
+g=9.81
+v=Cv*((2*g*h)^0.5)
+v1=v*18/5
+disp(v1,"speed of the plane")
diff --git a/2159/CH3/EX3.11/311.sce b/2159/CH3/EX3.11/311.sce
new file mode 100755
index 000000000..f7d5ea541
--- /dev/null
+++ b/2159/CH3/EX3.11/311.sce
@@ -0,0 +1,9 @@
+// problem 3.11
+d1=0.05
+d2=0.025
+a1=3.142*d1*d1/4
+a2=3.142*d2*d2/4
+Cd=0.94
+g=9.81
+k=((((a1^2)/(a2^2))-1)*(1-(Cd^2)))/(2*g*(a1^2)*(Cd^2))
+disp(k,"venturimeter constant m-5/s2")
diff --git a/2159/CH3/EX3.12/312.sce b/2159/CH3/EX3.12/312.sce
new file mode 100755
index 000000000..6746f1575
--- /dev/null
+++ b/2159/CH3/EX3.12/312.sce
@@ -0,0 +1,14 @@
+// problem 3.12
+d0=0.05
+d1=0.1
+H=0.09
+s2=13.6
+s1=1
+g=9.81
+h=H*((s2/s1)-1)
+Cd=0.65
+a1=3.142*d1*d1/4
+a0=3.142*d0*d0/4
+q=(Cd*a1*a0*((2*g*h)^0.5))/(((a1^2)-(a0^2))^0.5)
+q1=q*(10^6)
+disp(q1,"actual flow rate in cm3/sec")
diff --git a/2159/CH3/EX3.2/32.sce b/2159/CH3/EX3.2/32.sce
new file mode 100755
index 000000000..aa44ba3bb
--- /dev/null
+++ b/2159/CH3/EX3.2/32.sce
@@ -0,0 +1,17 @@
+// problem 3.2
+d1=1
+d2=0.5
+q=0.1
+p1=70*1000
+l=60
+z2=0
+z1=l/20
+a1=3.142*d1*d1/4
+a2=3.142*d2*d2/4
+v1=q/a1
+v2=q/a2
+w=9810
+g=9.91
+// applying bernoulli equation
+p2=((z1-z2)+(((v1^2)-(v2^2))/(2*g))+(p1/w))*w
+disp(p2,"presssure at lower end in N/m2")
diff --git a/2159/CH3/EX3.3/33.sce b/2159/CH3/EX3.3/33.sce
new file mode 100755
index 000000000..82ad558d1
--- /dev/null
+++ b/2159/CH3/EX3.3/33.sce
@@ -0,0 +1,17 @@
+// problem 3.3
+d1=0.2
+d2=0.1
+l=4
+x=30
+p1=392.4*1000
+q=0.035
+z1=0
+z2=l*sind(x)
+a1=3.142*d1*d1/4
+a2=3.142*d2*d2/4
+v1=q/a1
+v2=q/a2
+w=9810
+g=9.81
+p2=((z1-z2)+(((v1^2)-(v2^2))/(2*g))+(p1/w))*w
+disp(p2,"pressure intensity at outlet in N/m2")
diff --git a/2159/CH3/EX3.4/34.sce b/2159/CH3/EX3.4/34.sce
new file mode 100755
index 000000000..0982cc204
--- /dev/null
+++ b/2159/CH3/EX3.4/34.sce
@@ -0,0 +1,20 @@
+// problem 3.4
+d1=0.2
+d2=0.1
+d3=0.15
+v1=4
+g=9.81
+vh1=(v1^2)/(2*g)
+a1=3.142*d1*d1/4
+a2=3.142*d2*d2/4
+a3=3.142*d3*d3/4
+v2=(a1*v1)/a2
+vh2=(v2^2)/(2*g)
+v3=(a1*v1)/a3
+vh3=(v3^2)/(2*g)
+q=a1*v1
+mf=q*1000
+disp(vh1,"velocity head at point 1")
+disp(vh2,"velocity head at point 2")
+disp(vh3,"velocity head at point 3")
+disp(mf,"mass flow rate in kg/sec")
diff --git a/2159/CH3/EX3.5/35.sce b/2159/CH3/EX3.5/35.sce
new file mode 100755
index 000000000..1d5b0d3c1
--- /dev/null
+++ b/2159/CH3/EX3.5/35.sce
@@ -0,0 +1,23 @@
+// problem 3.5
+d1=0.2
+d2=0.5
+p1=98.1*1000
+p2=58.86*1000
+q=0.2
+z1=0
+z2=4
+g=9.81
+s=0.87
+a1=3.142*d1*d1/4
+a2=3.142*d2*d2/4
+v1=q/a1
+v2=q/a2
+w=9810
+ph1=p1/(w*s)
+ph2=p2/(w*s)
+vh1=(v1^2)/(2*g)
+vh2=(v2^2)/(2*g)
+th1=vh1+ph1+z1
+th2=vh2+ph2+z2
+tl=th1-th2
+disp(tl,"loss of head in m,flow from 1 to 2")
diff --git a/2159/CH3/EX3.6/36.sce b/2159/CH3/EX3.6/36.sce
new file mode 100755
index 000000000..69f4bfbfd
--- /dev/null
+++ b/2159/CH3/EX3.6/36.sce
@@ -0,0 +1,16 @@
+// problem 3.6
+d1=0.3
+d2=0.15
+a1=3.142*d1*d1/4
+a2=3.142*d2*d2/4
+H=0.18
+Cd=0.85
+s2=13.6
+s1=1
+w=9810
+h=H*((s2/s1)-1)
+g=9.81
+q=(Cd*a1*a2*((2*g*h)^0.5))/(((a1^2)-(a2^2))^0.5)
+q1=q*1000
+disp(q1,"rate of flow in litres/sec")
+
diff --git a/2159/CH3/EX3.7/37.sce b/2159/CH3/EX3.7/37.sce
new file mode 100755
index 000000000..b3468e76d
--- /dev/null
+++ b/2159/CH3/EX3.7/37.sce
@@ -0,0 +1,14 @@
+// problem 3.7
+q=0.1
+d1=0.2
+Cd=0.9
+H=0.4
+s1=1
+s2=13.6
+g=9.8
+h=H*((s2/s1)-1)
+a1=3.142*d1*d1/4
+z=1+(((Cd*a1*((2*g*h)^0.5))/q)^2)
+a2=((a1^2)/z)^0.5
+d2=(4*a2/3.1)^0.5
+disp(d2,"diameter of throat in m")
diff --git a/2159/CH3/EX3.8/38.sce b/2159/CH3/EX3.8/38.sce
new file mode 100755
index 000000000..df1e889a2
--- /dev/null
+++ b/2159/CH3/EX3.8/38.sce
@@ -0,0 +1,11 @@
+// problem 3.8
+q=0.08
+d1=0.3
+d2=0.15
+a1=3.142*d1*d1/4
+a2=3.142*d2*d2/4
+h=1.5
+g=9.81
+z=(a1*a2*((2*g*h)^0.5))/(((a1^2)-(a2^2))^0.5)
+Cd=q/z
+disp(Cd,"co-efficient of meter")
diff --git a/2159/CH3/EX3.9/39.sce b/2159/CH3/EX3.9/39.sce
new file mode 100755
index 000000000..b23739440
--- /dev/null
+++ b/2159/CH3/EX3.9/39.sce
@@ -0,0 +1,17 @@
+// problem 3.9
+s2=13.6
+s1=0.9
+H=0.25
+h=H*((s2/s1)-1)
+Cd=0.98
+w=9810*s1
+d1=0.3
+d2=0.15
+a1=3.142*d1*d1/4
+a2=3.142*d2*d2/4
+dz=0.3
+g=9.81
+q=(Cd*a1*a2*((2*g*h)^0.5))/(((a1^2)-(a2^2))^0.5)
+dp=(h+dz)*w
+disp(q,"discharge of the oil in m3/sec")
+disp(dp,"pressure diffrence in entrance and throat section ")
-- 
cgit