summaryrefslogtreecommitdiff
path: root/3751/CH12/EX12.8/Ex12_8.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3751/CH12/EX12.8/Ex12_8.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3751/CH12/EX12.8/Ex12_8.sce')
-rw-r--r--3751/CH12/EX12.8/Ex12_8.sce52
1 files changed, 52 insertions, 0 deletions
diff --git a/3751/CH12/EX12.8/Ex12_8.sce b/3751/CH12/EX12.8/Ex12_8.sce
new file mode 100644
index 000000000..3f1975680
--- /dev/null
+++ b/3751/CH12/EX12.8/Ex12_8.sce
@@ -0,0 +1,52 @@
+//Fluid Systems - By- Shiv Kumar
+//Chapter 12- Reciprocating Pumps
+//Example 12.8
+//To (a) Find the Speed at which seperation may take place at commencement of suction stroke, (b)Find the change in Speed of Pump if an air vessel is fitted in the suction side.
+
+ clc
+ clear
+
+//Given Data:-
+ H_s=3.60; //Suction Head, m
+ d_s=225; //Diameter of Suction Pipe, mm
+ l_s=9.6; //Length of Suction Pipe, m
+ D=300; //Pump cylinder diameter, mm
+ L=450; //Stroke length, mm
+
+ H_a=9.6; //Barometric Head, m of water
+ H_sp=2.4; //Head (m of water) for seperation
+ f=0.04;
+
+
+//Data Used:-
+ g=9.81; //Acceleration due to gravity, m/s^2
+
+
+//Computations:-
+ D=D/1000; //m
+ L=L/1000; //m
+ d_s=d_s/1000; //m
+
+ a_s=(%pi/4)*d_s^2; //m^2
+ A=(%pi/4)*D^2; //m^2
+ r=L/2; //m
+
+ //Without Air Vessel
+ H_as_by_omega2=(l_s/g)*(A/a_s)*r; //H_as/omega^2
+ omega=sqrt((H_a-H_s-H_sp)/H_as_by_omega2); //rad/s
+ N=omega*60/(2*%pi); //rpm
+
+ //With Air Vessel
+ Us_by_N=(A/a_s)*L/60; //Us/N
+ l_v=H_sp/2; //m
+ H_as_by_N2=(l_v/g)*(A/a_s)*(2*%pi/60)^2*r; //H_as/N^2
+ h_fs_by_N2=f*(l_s-l_v)*Us_by_N^2/(r*2*g);
+ N1=sqrt((H_a-H_sp-H_s)/(H_as_by_N2+h_fs_by_N2)); //Speed of Pump if air vessel is fitted, rpm
+ Change_In_Speed=N1-N; //rpm
+
+
+//Results:-
+ printf("(a)Speed at which Seperation may take place, N=%.f rpm\n",N)
+ printf("(b)Change in Speed with air vessel=%.f rpm\n",Change_In_Speed) //The answer provided in the textbook is wrong
+
+