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

---
 1187/CH6/EX6.1/1.sce | 28 ++++++++++++++++++++++++++++
 1187/CH6/EX6.2/2.sce | 10 ++++++++++
 1187/CH6/EX6.3/3.sce | 21 +++++++++++++++++++++
 1187/CH6/EX6.4/4.sce | 18 ++++++++++++++++++
 1187/CH6/EX6.5/5.sce | 32 ++++++++++++++++++++++++++++++++
 1187/CH6/EX6.6/6.sce | 16 ++++++++++++++++
 1187/CH6/EX6.7/7.sce | 22 ++++++++++++++++++++++
 7 files changed, 147 insertions(+)
 create mode 100755 1187/CH6/EX6.1/1.sce
 create mode 100755 1187/CH6/EX6.2/2.sce
 create mode 100755 1187/CH6/EX6.3/3.sce
 create mode 100755 1187/CH6/EX6.4/4.sce
 create mode 100755 1187/CH6/EX6.5/5.sce
 create mode 100755 1187/CH6/EX6.6/6.sce
 create mode 100755 1187/CH6/EX6.7/7.sce

(limited to '1187/CH6')

diff --git a/1187/CH6/EX6.1/1.sce b/1187/CH6/EX6.1/1.sce
new file mode 100755
index 000000000..44cb37305
--- /dev/null
+++ b/1187/CH6/EX6.1/1.sce
@@ -0,0 +1,28 @@
+clc
+
+RD=0.83;
+rho_w=1000; // density of water in kg/m^3
+v=2.3; // m/s
+d=0.012; // m
+u=0.08; // dynamic viscocity in kg/m/s
+
+rho_oil=RD*rho_w;
+
+Re=rho_oil*v*d/u;
+disp("(a) Reynolds number =")
+disp(Re)
+
+v_max=2*v;
+disp("(b)Maximum velocity =")
+disp(v_max)
+disp("m/s")
+
+Q=%pi/4*d^2*v;
+disp("(c)Volumetric flow rate =")
+disp(Q)
+disp("m^3/s")
+
+p=-128*Q*u/%pi/d^4;
+disp("Pressure gradient along the pipe = ")
+disp(p)
+disp("Pa/m")
\ No newline at end of file
diff --git a/1187/CH6/EX6.2/2.sce b/1187/CH6/EX6.2/2.sce
new file mode 100755
index 000000000..82cee4e55
--- /dev/null
+++ b/1187/CH6/EX6.2/2.sce
@@ -0,0 +1,10 @@
+clc
+c=0.001; // m
+p1=15*10^3; // Pa
+u=0.6; // kg/m/s
+R=6; // ratio of R2/R1
+
+Q=%pi*c^3*p1/(6*u*log(R));
+disp("(b)Rate at which oil must be supplied =")
+disp(Q)
+disp("m^3/s")
\ No newline at end of file
diff --git a/1187/CH6/EX6.3/3.sce b/1187/CH6/EX6.3/3.sce
new file mode 100755
index 000000000..674f7f06e
--- /dev/null
+++ b/1187/CH6/EX6.3/3.sce
@@ -0,0 +1,21 @@
+clc
+
+F=6*10^3; // Pa
+b=0.12; // m
+
+f=F*b;
+
+disp("(a) The load the pad will support =")
+disp(f)
+disp("N/m")
+
+dp=12*10^3; // N/m^2
+dx=0.12; // m
+c=0.00018; // m
+u=0.5; // kg/m/s
+V=5; // m/s
+
+q=(dp/dx)*c^3/12/u + V*c/2;
+disp("(b) The rate at which oil must be supplied =")
+disp(q)
+disp("m^2/s")
\ No newline at end of file
diff --git a/1187/CH6/EX6.4/4.sce b/1187/CH6/EX6.4/4.sce
new file mode 100755
index 000000000..ef1805894
--- /dev/null
+++ b/1187/CH6/EX6.4/4.sce
@@ -0,0 +1,18 @@
+clc
+
+d_p=0.05; // diameter of piston in m
+d_c=0.0504; // diameter of cylinder in m
+SG=0.87;
+rho_w=1000; // kg/m^3
+v=10^-4; // m^2/s
+dp=1.4*10^6; // Pa
+l=0.13; // m
+
+c=(d_c-d_p)/2; // clearance
+
+u=SG*rho_w*v; // Dynamice viscocity
+
+Vp=dp*c^3/(6*u*l*(d_p/2+c));
+disp("Velocity of the dashpot =")
+disp(Vp)
+disp("m/s")
\ No newline at end of file
diff --git a/1187/CH6/EX6.5/5.sce b/1187/CH6/EX6.5/5.sce
new file mode 100755
index 000000000..855726b1d
--- /dev/null
+++ b/1187/CH6/EX6.5/5.sce
@@ -0,0 +1,32 @@
+clc
+
+disp("(a)the dynamic and kinematic viscosities of the oil")
+
+d=0.00475; // m
+g=9.81; // m/s^2
+rho_s=1151; // kg/m^3
+rho=880; // kg/m^3
+u=0.006; // m/s
+
+F=%pi/6*d^3*g*(rho_s-rho);
+
+rat_d=0.25; // ratio of d/D
+rat_F=1.8; // ratio of F/Fo
+
+dynamic=F/(1.8*3*%pi*u*d);
+
+kinematic=dynamic/rho;
+
+disp("Dynamic viscosity = ")
+disp(dynamic)
+disp("kg/m/s")
+
+disp("Kinematic viscosity =")
+disp(kinematic)
+disp("m^2/s")
+
+disp("(b) Reynolds number of sphere =")
+
+Re=rho*u*d/dynamic;
+disp("Reynolds number =")
+disp(Re)
diff --git a/1187/CH6/EX6.6/6.sce b/1187/CH6/EX6.6/6.sce
new file mode 100755
index 000000000..2144a3761
--- /dev/null
+++ b/1187/CH6/EX6.6/6.sce
@@ -0,0 +1,16 @@
+clc
+
+D=0.120; // m
+h=0.08; // m
+c=0.001; // m
+t=0.01875; // m
+rev=65; // revolutions per min
+T=4*10^-3; // N.m
+
+K1=%pi*h/4/c;
+K2=%pi/32/t;
+
+u=T/(rev*2*%pi/60)/(K1*D^3+K2*D^4);
+disp("viscosity of the liquid =")
+disp(u)
+disp("Pa.s")
\ No newline at end of file
diff --git a/1187/CH6/EX6.7/7.sce b/1187/CH6/EX6.7/7.sce
new file mode 100755
index 000000000..34b9647d5
--- /dev/null
+++ b/1187/CH6/EX6.7/7.sce
@@ -0,0 +1,22 @@
+clc
+
+V=10; // m/s
+h1=0.0005; // m
+h2=0.00025; // m
+L=0.1; // m
+b=0.1; // m
+RD=0.87;
+u=2*10^-4; // m^2/s
+rho_w=1000; // kg/m^3
+
+H=h1/h2;
+
+Q=V/2*(1+H^2)/(1+H^3)*b*h1;
+disp("(b) Volumetric flow rate of oil =")
+disp(Q)
+disp("m^3/s")
+
+F=V/2*(1-(1+H^2)/(1+H^3))*12*RD*rho_w*u/h1^2*L^2/4*b;
+disp("The load supported by the bearing =")
+disp(F)
+disp("N")
\ No newline at end of file
-- 
cgit