summaryrefslogtreecommitdiff
path: root/557
diff options
context:
space:
mode:
Diffstat (limited to '557')
-rwxr-xr-x557/CH2/EX2.10/10.sce46
-rwxr-xr-x557/CH24/EX24.2/2.sce42
2 files changed, 44 insertions, 44 deletions
diff --git a/557/CH2/EX2.10/10.sce b/557/CH2/EX2.10/10.sce
index 7756eae0d..68ce7f130 100755
--- a/557/CH2/EX2.10/10.sce
+++ b/557/CH2/EX2.10/10.sce
@@ -1,24 +1,24 @@
-clc ;funcprot(0);
-//Example 2.10
-
-//Initializing the variables
-phi = 30; //30 degree
-h = 1.2 ; // Height of tank
-l = 2; // Length of tank
-
-//Calculations
-function[Theta]=SurfaceAngle(a,phi)
- Theta = atand(-a*cosd(phi)/(g+a*sind(phi)));
-endfunction
-
-//case (a) a = 4
-disp(tand(SurfaceAngle(4,phi)),"Tan of Angle between surface of fluid and horizontal :");
-disp(180 + SurfaceAngle(4,phi),"ThetaA (degree):");
-
-//Case (b) a = - 4.5
-tanThetaR = tand(SurfaceAngle(-4.5,phi));
-disp(tanThetaR,"Tan of Angle between surface of fluid and horizontal :");
-disp(SurfaceAngle(-4.5,phi),"ThetaR (degree):");
-
-Depth = h - l*tanThetaR/2;
+clc ;funcprot(0);
+//Example 2.10
+
+//Initializing the variables
+phi = 30; //30 degree
+h = 1.2 ; // Height of tank
+l = 2; // Length of tank
+g = 9.81;
+//Calculations
+function[Theta]=SurfaceAngle(a,phi)
+ Theta = atand(-a*cosd(phi)/(g+a*sind(phi)));
+endfunction
+
+//case (a) a = 4
+disp(tand(SurfaceAngle(4,phi)),"Tan of Angle between surface of fluid and horizontal :");
+disp(180 + SurfaceAngle(4,phi),"ThetaA (degree):");
+
+//Case (b) a = - 4.5
+tanThetaR = tand(SurfaceAngle(-4.5,phi));
+disp(tanThetaR,"Tan of Angle between surface of fluid and horizontal :");
+disp(SurfaceAngle(-4.5,phi),"ThetaR (degree):");
+
+Depth = h - l*tanThetaR/2;
disp(Depth,"Maximum Depth of tank (m):"); \ No newline at end of file
diff --git a/557/CH24/EX24.2/2.sce b/557/CH24/EX24.2/2.sce
index f10793fdc..ff1777747 100755
--- a/557/CH24/EX24.2/2.sce
+++ b/557/CH24/EX24.2/2.sce
@@ -1,22 +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
-
+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*(Ds)^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