summaryrefslogtreecommitdiff
path: root/1484/CH6/EX6.30/6_30.sce
blob: 16891bda879dd78332119b6e2892f982a125a1a8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc 
//initialisation of variables
hp= 40 //hp
w= 62.4 //lb/ft^3
d= 4 //in
k= 0.98
v= 2.395 //ft/sec
W= 120 //tons
//CALCULATIONS
hv= hp*550/(w*(%pi*(d/12)^2/4)*k)
H= hv/v
d= sqrt(4*W*2240/(w*H*%pi))
//RESULTS
printf ('diameter = %.2f ft',d)