summaryrefslogtreecommitdiff
path: root/557/CH2/EX2.10/10.sce
diff options
context:
space:
mode:
Diffstat (limited to '557/CH2/EX2.10/10.sce')
-rwxr-xr-x557/CH2/EX2.10/10.sce46
1 files changed, 23 insertions, 23 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