1 files changed, 25 insertions, 0 deletions
diff --git a/1457/CH6/EX6.3/6_3.sce b/1457/CH6/EX6.3/6_3.sce
new file mode 100755
index 000000000..8ba4eb187
--- /dev/null
+++ b/1457/CH6/EX6.3/6_3.sce
@@ -0,0 +1,25 @@
+clc
+//Initialization of variables
+v2=36 //fps
+beta=150 //degrees
+u=60 //fps
+rho=1.94
+Qd=0.0218
+V1=100 //fps
+gam=62.4
+g=32.2
+//calculations
+v2s=v2*sind(beta)
+v2c=u+v2*cosd(beta)
+V2=34 //fps
+alpha=32 //degrees
+Fx=rho*Qd*(v2c-V1)*(V1-u)
+Fy=-rho*Qd*(V1-u)*v2s
+Fx2=rho*Qd*V1*(v2c-V1)
+HPin=gam*Qd*V1*(V1^2 /(2*g))/550
+HPout=gam*Qd*V1*(V2^2 /(2*g))/550
+HPtransfer=-Fx2*u/550
+HPfl=HPin-HPout-HPtransfer
+//results
+printf("Force exerted by water on the vane = %d lb",Fx2)
+printf("\n Friction loss = %.1f hp ",HPfl)