summaryrefslogtreecommitdiff
path: root/1466/CH18/EX18.1/18_1.sce
blob: aebd89d19d489cf59deb50265af6913d8531b3f3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14

clc
//initialisation of variables
f=0.0025
l=10//ft
T1=540//0 f
d=1/8
w1=0.208
//CALCULATIONS
k=f*l/d
v1=27.15*sqrt(540)
W=0.208*%pi*d*d*v1/4
//RESULTS
printf ('\n maximum discharge= %.3f lb/sec',W)