1 files changed, 16 insertions, 0 deletions
diff --git a/2087/CH10/EX10.2/example10_2.sce b/2087/CH10/EX10.2/example10_2.sce
new file mode 100755
index 000000000..b9bd4a9f0
--- /dev/null
+++ b/2087/CH10/EX10.2/example10_2.sce
@@ -0,0 +1,16 @@
+
+
+//example 10.2
+//calculate discharge per meter length of dam
+clc;funcprot(0);
+//given
+K=3D-3;            //coefficient of permeability
+nd=25;              //number of potential drops
+nf=4;              //number of flow channels
+lf=40;             //filter length
+H=52;              //heigth of dam
+fb=2;              //free board
+
+q=K*(H-fb)*nf/(nd*100);
+mprintf("Discharge per meter length of dam=%f cumec/metre length.",q);
+