1 files changed, 28 insertions, 0 deletions
diff --git a/2513/CH5/EX5.4/5_4.sce b/2513/CH5/EX5.4/5_4.sce
new file mode 100755
index 000000000..f3dfe940e
--- /dev/null
+++ b/2513/CH5/EX5.4/5_4.sce
@@ -0,0 +1,28 @@
+clc
+//initialisation of variables
+p=100000//in
+d=150//in
+h=1000000//in
+a1=2.0//draft
+a2=3.0//draft
+a3=1.6//draft
+m=1.5//in
+q=2.5//in
+v=1020//in
+w=100//in
+t=0.01//in
+v1=13.2//mgd
+//CALCULATIONS
+A=d*p/h//mgd
+M=m*A//mgd
+M1=q*A//mgd
+V=v*sqrt(w)*(1-t*sqrt(w))//gpm
+D=M+v1//mgd
+L=a1*A//mgd
+L1=(4/3)*M//max
+H=a2*A//mgd
+H1=(4/3)*M1//max
+F=a3*A//mgd
+F1=(4/3)*M//max
+//RESULTS
+printf('the resulting capacities of the four system =% f max',F1)