1 files changed, 26 insertions, 0 deletions
diff --git a/2087/CH11/EX11.1/example11_1.sce b/2087/CH11/EX11.1/example11_1.sce
new file mode 100755
index 000000000..b94fd6f62
--- /dev/null
+++ b/2087/CH11/EX11.1/example11_1.sce
@@ -0,0 +1,26 @@
+
+
+//example 11.1
+//calculate compute the dynamic force on curved section
+clc;funcprot(0);
+//given
+h=1.2;         //head of water
+Cd=2.2;        //coefficient of discharge
+rho=1;         //density of water
+gamma_w=9.81;  //unit weigth of water
+
+q=Cd*h^1.5;
+
+//applying bernaulli's equation at u/s water surface at section A and B
+//solving it by error and trial method we get
+v1=13.7;v2=14.7;
+d1=0.212;d2=0.197;
+
+F1=gamma_w*d1^2*cosd(60)/2;
+F2=gamma_w*d2^2/2;
+W=gamma_w*60*2*%pi*3*((d1+d2)/2)/360;
+Fx=rho*q*(v2-v1*cosd(60))-F1/2+F2;
+Fy=rho*q*(v1*sind(60))+F1*sind(60)+W;
+F=(Fx^2+Fy^2)^0.5;
+F=round(F*100)/100;
+mprintf("Resultant force=%f kN/m.",F);