updated the code

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