1 files changed, 11 insertions, 0 deletions
diff --git a/557/CH9/EX9.1/1.sce b/557/CH9/EX9.1/1.sce
new file mode 100755
index 000000000..0e448e662
--- /dev/null
+++ b/557/CH9/EX9.1/1.sce
@@ -0,0 +1,11 @@
+clc;funcprot(0); //Example 9.1
+
+//Initializing the variables
+Vp = 10;
+LpByLm = 20;
+rhoPbyRhoM = 1;
+muPbymuM = 1;
+//Calculations
+Vm = Vp*LpByLm*rhoPbyRhoM*muPbymuM;
+ 
+disp(Vm, 'Mean water tunnel flow velocity (m/s):'); 
+\ No newline at end of file