summaryrefslogtreecommitdiff
path: root/557/CH24/EX24.2/2.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /557/CH24/EX24.2/2.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '557/CH24/EX24.2/2.sce')
-rwxr-xr-x557/CH24/EX24.2/2.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/557/CH24/EX24.2/2.sce b/557/CH24/EX24.2/2.sce
new file mode 100755
index 000000000..f10793fdc
--- /dev/null
+++ b/557/CH24/EX24.2/2.sce
@@ -0,0 +1,22 @@
+clc; funcprot(0);
+//Example 24.2
+
+//Initializing the variables
+H_friction = 2.4;
+H_at = 10.3;
+Hs = 1.5;
+L =2;
+f = 0.01;
+d = 0.05;
+g = 9.81;
+Ds = 0.4; // Diameter of stroke
+Db = 0.15; // Diameter of bore
+r = 0.2;
+
+//Calculations
+A = %pi*(Db)^2/4;
+a = %pi*(Dd)^2/4;
+W= sqrt((H_at - Hs - H_friction )*(2*d*g/(4*f*L)))*(a/A)*(%pi/r);
+W_rev = W/(2*%pi)*60; // maximum rotation speed in rev/min
+
+disp(W_rev-40, "Increase in speed (rev/min):"); \ No newline at end of file