diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1187/CH7 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '1187/CH7')
| -rwxr-xr-x | 1187/CH7/EX7.1/1.sce | 22 | ||||
| -rwxr-xr-x | 1187/CH7/EX7.2/2.sce | 18 | ||||
| -rwxr-xr-x | 1187/CH7/EX7.3/3.sce | 16 | ||||
| -rwxr-xr-x | 1187/CH7/EX7.4/4.sce | 15 | ||||
| -rwxr-xr-x | 1187/CH7/EX7.5/5.sce | 28 | ||||
| -rwxr-xr-x | 1187/CH7/EX7.6/6.sce | 29 |
6 files changed, 128 insertions, 0 deletions
diff --git a/1187/CH7/EX7.1/1.sce b/1187/CH7/EX7.1/1.sce new file mode 100755 index 000000000..c38eaa830 --- /dev/null +++ b/1187/CH7/EX7.1/1.sce @@ -0,0 +1,22 @@ +clc
+
+Q=50*10^-3; // m^3/s
+d=0.15; // m
+l=300; // m
+v=1.14*10^-6; // m^2/s
+g=9.81; // m/s^2
+
+// For galvanised steel
+k=0.00015; // m
+t=0.001; // ratio of k to d ; (k/d)
+f=0.00515;
+
+A1=%pi/4*d^2;
+
+u=Q/A1;
+Re=u*d/v;
+
+h_f=4*f*l*u^2/d/(2*g);
+disp("Head lost to friction =")
+disp(h_f)
+disp("m")
\ No newline at end of file diff --git a/1187/CH7/EX7.2/2.sce b/1187/CH7/EX7.2/2.sce new file mode 100755 index 000000000..646b75200 --- /dev/null +++ b/1187/CH7/EX7.2/2.sce @@ -0,0 +1,18 @@ +clc
+
+k=0.00025; // m
+d=0.1; // m
+l=120; // m
+h_f=5; // m
+g=9.81; // m/s^2
+v=10^-5; // m^2/s
+
+f=0.0079042;
+
+u=sqrt(h_f*d*(2*g)/(4*f*l));
+Re=u*d/v;
+
+Q=u*%pi/4*d^2;
+disp("Rate =")
+disp(Q)
+disp("m^3/s")
\ No newline at end of file diff --git a/1187/CH7/EX7.3/3.sce b/1187/CH7/EX7.3/3.sce new file mode 100755 index 000000000..3f372de27 --- /dev/null +++ b/1187/CH7/EX7.3/3.sce @@ -0,0 +1,16 @@ +clc
+
+h_f=9; // m
+l=180; // m
+Q=85*10^-3; // m^3/s
+f=0.00475;
+k=0.00015; // m
+v=1.14*10^-6; // m^2/s
+g=9.81; // m/s^2
+
+d=(4*f*l*Q^2/h_f/(%pi/4)^2/(2*g))^(1/5);
+Re=(Q/(%pi*d^2/4))*d/v;
+
+disp("The size of galvanized steel pipe = ")
+disp(d)
+disp("m")
diff --git a/1187/CH7/EX7.4/4.sce b/1187/CH7/EX7.4/4.sce new file mode 100755 index 000000000..d588264b9 --- /dev/null +++ b/1187/CH7/EX7.4/4.sce @@ -0,0 +1,15 @@ +clc
+
+// D1=(5*b1/3/a)^(1/8)
+// D2=(5*b1/3/a)^(1/8)
+
+// But b2=2.5*b1
+// Therefore D2=(2.5)^(1/8)*D1
+
+D1=600; // mm
+
+D2=(2.5)^(1/8)*D1;
+
+disp("Revised estimate of the optimum pipe diameter =")
+disp(D2)
+disp("mm")
\ No newline at end of file diff --git a/1187/CH7/EX7.5/5.sce b/1187/CH7/EX7.5/5.sce new file mode 100755 index 000000000..f15ef340c --- /dev/null +++ b/1187/CH7/EX7.5/5.sce @@ -0,0 +1,28 @@ +clc
+
+disp("(a) Feed is at the end of the main")
+Q0=4.5*10^-3; // m^3/s
+d=0.1; // m
+l=4.5*10^3; // m
+g=9.81; // m/s^2
+f=0.006;
+rho=1000; // kg/m^3
+
+u0=Q0/(%pi/4*d^2);
+h_f=4*f*u0^2*l/3/(d*2*g);
+
+dp=h_f*rho*g;
+disp("Pressure difference =")
+disp(dp)
+disp("N/m^2")
+
+disp("(b) Feed is at the centre of the main")
+
+Q0_b=Q0/2;
+u0_b=u0/2;
+l_b=l/2;
+
+dp_b=(u0_b/u0)^2*(l_b/l)*dp;
+disp("Pressure difference =")
+disp(dp_b)
+disp("N/m^2")
\ No newline at end of file diff --git a/1187/CH7/EX7.6/6.sce b/1187/CH7/EX7.6/6.sce new file mode 100755 index 000000000..bf3137e46 --- /dev/null +++ b/1187/CH7/EX7.6/6.sce @@ -0,0 +1,29 @@ +clc
+
+d1=3; // m
+d2=2; // m
+f=0.007;
+l=75; // m
+d=0.05; // m
+g=9.81; // m/s^2
+h1=1.8; // m
+
+A1=%pi/4*d1^2;
+A2=%pi/4*d2^2;
+
+// dh/dt=dz1/dr*(1+A1/A2)
+// Q=-A1*dz1/dt = -4/13*A1*dh/dt
+
+// u=(Q/2)^2/(%pi/4*d^2)
+// h=(4*f*l/d + 1.5)*u^2/2g = 1.438*10^5*Q^2
+
+// t=integrate('-1/(1+A1/A2)*A1*(1.438*10^5/h)^(1/2)','h',h1,H)
+
+// By integrating, we get
+H=(h1^(1/2)-(900/2/824.7))^2;
+h=h1-H;
+dz1=1/(1+A1/A2)*h;
+
+disp("The change in the level in larger tank =")
+disp(dz1)
+disp("m")
\ No newline at end of file |